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BEGIN 
PRTf2?) b *LlST f LABEL. OR SEGMENT DESCRIPTOR* 

pRTf23) = *outeR block descriptor* 

PRTf24> = *SEGMENT DESCRIPTOR* 

INTEGER ERRORCT; CoMMEnT MUST BE FIrST DECLARED VARIABLE! 
PRTC25) s ERRORCT 

INTEGER SAVETIME) COMMENT MUST BE 2 ND DECLARED VARIABLE! 
PRTC26) = SAVETIME 

INTEGER CARDC0UNT*ESTIMATEiSEQERRCT I 
PRTC27) = CARDCOUNT 
PRTC30) = ESTIMATE 
PRTC31) = SEQERRCT 
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INTEGER SWARYCTJ 00147500 T 0000 

^ PRT(32) s SWARYCT ^ 

REAL TWODPRTX? 00148000 T 0000 

PRTC33) = TWODPRTX 
O REAL iNfTiALSEGNOj 00149000 T 0000 C 

PRT(34) = JNtTIALSerNO 

REAL NEXT, FNEXT, NAME* NUMTYPEJ 00150000 T 0000 

O PRT(35) = NfXT C 

PRTC36) = ENeXT 

PRT(37) = N A Me _ 

O PRTC40) s NUMTYPE C 

REAL A, B, i. J» P, T, TS, H 00j5l000 T 0000 

PRT(4i) s A _ 

'■J PRTf4?) =: B v- 

PRT(43> - I 

PRT(4A) - J 
VJ PRT(45) s P '^ 

PRTC46) 5 T 

PRTC47) = T5 
^ PRTC50) * Z 
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REAL RTf} % START COMPILE TIME 00152000 T 0000 

PRTC51) = RTI 
'O REAL EXpVALUE» EXPRESULT* EXPLlNK; 00153000 T 0000 ( - 

PRTC52) = EXPVALUE 
PRTC53) = EXPRESULT 
<-•' PRTC54) = EXPLlNK 

REAL SPLINKi EUNVAR; 00155000 T 0000 

PRTC55) s SPLINK 
U PRT(56) = FIJNVAR 

RfAL DATAPRT,DATASTRT»DaTaLINK»OATASKPJ 00155100 T 0000 

PRTC57) = HATAPRT 
O PRTC60) s HATASTRT 

PRT(61) = HATALiNK 

PRT(62) 9 DATASKP 

'O BOOLEAN SCANENTER ) % TRUE IFF SCAN JUST DtD AN ENTER ON AN I D I 00155110 T 0000 C 
PRT f 63> = SCANENTER 

DEFINE NUMlNTMls 00i55?t0 T 0000 

^ 83 00155211 T 0000 C 

tl% NUMTNTM1 IS THE NUMBER OF InTRInSICS MINUS \l FOR EACH NEW INTRINSIC 00155212 T 0000 

X WHIcH IS ADDED, ADD 1 To THE ValUE ON SEQ# 00155211, 00155213 T 0000 ^ 

'w DEFINE MAXEL S 15#J 00156000 T 0000 ^ 

REAL ARRAY ENTRYL INK t 5 MAXeU i 00157000 T 0000 
PRT(64) = EmTRYLINK ^ 

O ' REAL ELXJ 00158000 T 0001 C 

PRTC65) - ELX 

ALPHA FNEW, NNEWJ 00159000 T 0001 

U PRTC66) s FNEW 

PRTC67) a NNEW 

REAL LARELMOM} 00160000 T 0001 

O PRTC70) = LABELMOM 

INTEGER LOCALS, PARMS*PRTS,FLAfiROUTlNECOUNTER ; 00161000 T 0001 

PRTC71) s LOCALS 
O PRT(72) = PARMS 

PRT(73) - PRTS 
PRTC74) - FLaGROUTTNECOiiNtfR 

O real Limit, votnTSFQ* ooutoio t 0001 O 

PRTC75) = LfMiT 
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PRT(76) = VOJDTSFQ 

REAL IDtNfO, TYPF.» NSEG? 
PRTf77) = fDlNFO 
PRT(iOO) s TYPE 
PRT(iOl) = NSEG 

REAL rxi', FX2, FX3, NXl, NX2» NX3* 
PRTC102) = FXi 
PRT(103) 5 FX2 
PRT(104) s FX3 
PRTC105) s NX! 
PRTC106) * NX2 
PRTC107) s NX3 

INTEGER LFNGTHt LOWERBOUND. GROuPPRt? 
PRTCllO) = UENGTH 

PRTClll) * loweRbound 
PRT(H2) = GROUPPRT 

ALPHA FOVID* INT ID* REALID i 

PRTC113) = FQVID 
PRTCU4) ; fNTlO 

PRTCU5) = RFALjn 

TNTFGFR ROOT* ADRI 
PRTC116) = ROOT 
PRTC117) = ADR 

INTEGER LASTMOOE '* %%% = 1 FOR SCARDJ =J 2 FOR STAPE, 
PRT(120J = LASTMODE 

BOOLEAN ERRORTOG»XPREVlOUS LISTfD RECORD, 
PRT(l?t) = ERRORTOG 

EOSTOG.XEND OF STMT TOGGLE, 
PRT(1?2) c EOSTOG 

PRT(1?3) = CODETOG 

PRTC124) s TAPETOG 

PRTC125) s eODS 

PRT(126) = FILETOG 

PRT(127) 9 DEBUgTOg 

PRT(130) n DESCREQ 

PRTfi3i) = XREF 

PRT(132) 



CODETOGiSLIST CODE GENERATED., 

TAPETOGpXMfRGE TAPE INPUT, 

EODS,?END OF DECLRSTMTS, RESET BY ENDS. 

FILFTOG»XPROCESSINg FlLF CARDS. 

DEBUgT0g»2T0 LIST OUT ENTERING AND EXITING PROCEDURES, 

DF5CREQ.XDFSCRIPT0R RfQuiRed. 

XRFF*XTO CREATE XReF OF PROfiRAM, 

SAVETOGUVARIOUS BoOLEAmS. 



e SAVETOG 

DEFINE LIBTAPE s SAVeT0G,[47> 

SAVEDEBUGToG = SAVETOG, [46! 

SAVECOOETOG = SAVeT0G.[45$ 

SAVEPRTTOG * SAVET0G.E44: 

SAVELISTOG * SAVET0G.H3: 

VOIDTOG = SAVETOG. [42* 

DATASTMTFUG * SAVeT0G.[41| 

F2T0G = SAVETOG. [40J 

CHECKTOG a SAVETOG. [39» 

LISTOG = SAVETOG. C381 

LISTLIBTOG = SAVeTOg.[37i 

SEOTOG = SAVeT0g.[36: 



J##XUSE To SAVE NEW WHILE INCLUDE. 
3#.*SAVE DFBUGTOG WHILE IN SINClUDE, 
3#»«SAVE CODETOG WHILE IN SlNCLUDE. 

]#.2!SAVE prtog while In sInclude. 

3#>*SaVE LISTOG WHILE IN SINCLUDE. 
3#»STQ VOID CARDS OR TAPE 
]#»*WHILE IN DATA STMTS, 

3#»*ADDR REL TO F + 2, 
3#»XSEQ # CHECK. 
]#»*To LIST OUTPUT, 
]#»XTO LIST LIBRARY OUTPUT, 
]*#*TO RESF9 INPUTS, 



00162000 T 0001 



00163000 T 0001 



v_ 



00164000 T 0001 

00165000 T 0001 

00166000 T 0001 

00166100 T 0001 

00167000 T OOOl 

00168000 T 0001 

00168200 T 0001 

00168400 T 0001 

00168500 T OOOl 

00168600 T OOOl 

00169000 T OOOl 

00169020 T OOOl 

00169030 T OOOl 

00169050 T OOOl 

00169053 T OOOl 

00169054 T OOOl 

00169055 T OOOl 

00169056 T OOOl 

00169057 T OOOl 

00169058 T OOOl 

00169059 T OOOl 

00169060 T OOOl 

00169061 T OOOl 

00169062 T OOOl 

00169063 T OOOl 

00169064 T OOOl 



c 



CJ 



c 

c 
o 
o 
o 
o 
o 
o 
o 



o 



O 1 



u 
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u 



o 

o 

O 



u 

O 

o 

o 
o 
o 
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SFQfRRORS 

TIMETOG 

PRTOG 

N^WTPTOg 

SlNGLETOG 

SFGOVFLAG 

FfRSTCALL 

returnfound 
endsegTog 
logiftog 
noTopIo 

DATATOG 

FREEFTOG 

SFGPTOG 

GLOBALNaME 

nameoesc 

localname 

tsseditog 

UNpRINTED 

DCINPUT 

SEGSW 

TSSMESTOG 

WARNED 

segswfixed 
Rfnfixed 
remotetog 
randomtog 

VOtDTTOg 
DOLlST 

holtog 

LlSTpTOG 

PXREF 

LASTlIME 

XGi.oBALS 

NTAPTqG 

SEENADOUB 



SAVfTOg. 
SAVfTOg. 
SAVeTOg, 
SAVfTOr. 
SAVfTOg. 
SAVfTOg. 
SAVfTOg. 

savetog. 
savetog. 

SAVeTog. 

savetog. 

SAVETOG, 
SAVETOG* 
SAVETOG. 
SAVETOG, 
SAVETOG. 
SAVETOG. 
SAVETOG, 
SAVETOG, 
SAVETOG, 
SAVETOG, 
SAVeTOg. 
SAVfTOG, 
SAVeTOg. 
SAVfTOg. 
SAVeTOg. 

savetog. 

SAVeTOg. 
SAVeTOg. 
SAVeTOg. 

savetog. 

SAVETOG. 

savetog. 

SAVETOG. 

savetog, 

SAVETOG, 



[35: 


13#. 


r 341 


n#» 


[33: 


u#. 


r 32 s 


l]#» 


r3n 


13*. 


r 30: 


l]#f 


r 29 » 


l]*» 


r 28 * 


13*, 


T27S 


l]#. 


[26! 


IJ#» 


[25« 


3#» 


C 24 t 


|3#» 


[235 


l3#» 


[22} 


l3#, 


[218 


t3#, 


[201' 


L3#» 


[19:: 


13#» 


[18: 


l3#, 


U7}< 


13#» 


[16M 


[3#» 


[15:1 


[3#, 


[14»j 


l3#, 


113*1 


3#, 


C 12 M 


3*, 


rim 


J*» 


rioii 


]#. 


r 9ii 


3#, 


r 8ij 


3#» 


r 7:i 


3#, 


r 6 « 1 


]*» 


r 5«i 


]#» 


C 4 « 1 


3#. 


[ 3H 


]## 


C 2»1 


3#» 


I 111 


3#» 


C40J1 


]#» 



PRTC133) 



PRTC134) 
PRTC135) 

PRT(136) 



PRT(137) 

PRT(HO) 
PRT(Hl) 

PRTM42) 
PRT(U3) 



ENDSAVToGDFFsjM 

ARRAY S5NMt0:183 i % THESE WORDS ARE 
=? SSNM 

X PERMANENT FUAGG 

DEFINE L.ASTSEQ = SSNMC03#, LASTFRR = SSN 

DEFINE V0IDSEQsSSNM[33 f ; 

ALPHA ARRAY ERR0R8UFF, PR I NTBUfF t J 14 
b FRRORBUFF 

* PRINTBUFF 

ARRAY INLlNElNT[0:353 J 

= TNLINEINT 

DEFINE XRBUFF = 150#. XRBUFFD I V3*50 

ARRAY XRRY[0:XRRUFF"13 ; 
s XRRY 

tNtfgfR sfobase,seQincRj 

r SFQBASF 

s seQtNcR 

tntegeR scn.labl.nfxtscn .nextcaRd; 

5 SCN 

= labl 



*if sequence errors. 

XTO LIST WRAPUP INfO ONLY, 

xto list storage map. 
screaTe new symbolic tape, 
xt0 list output single spaced, 
^segment overflow. 

2T0 LIST COMPILER HEADING; 
sReturn.call EXIT, STOP FOUNDl 
SEND OF SEGMENT. 
^PROCESSING LOGICAL IF STmT. 

AWHILE IN DATA STMTS, 

XFREE FIELD INPUT. 

*DONT PAGE AFTER SUBpRGM 

*T0 WRITE ALL IDENTIFIERS, 

2IF GLOBALNAME OR LOCALNAME TRUE, 

*T0 WRITE AN IDENTIFIER, 

KTSSEDIT. 

*T0 LIST CARDiFALSE IF LISTED, 

XIF USING TSS FORTRAN, 

2T0 MAINTAIN L I NED I CT/Ll NESEG. 

asTSSMES(ERRMES). 

»IF TSSFDIT WAS EVER EVOKED. 

*IF SEGSW IS NOT TO BE ALTERFD. 

XIF REMOTETOG ISNT TO BE ALTFRED. 

SPRINT & READ STMTS s REMOTE; 

XIF EXPR USED FOR RANDOM I/O. 

UQ VOID TAPE RECORDS ONLY. 

XLlST DOLLAR CARDS, 

MNPUT IN HOLLERITH. 

XLlST PATCHES ONLY, 

XTo LIST XREF OF PROGRAM. 

*To detr to skip xref. 

*To LET XREF KNOW OF DOING GLOBAL 
*To CLOSE NEWTAPE IF EVER OPENED 
SARRAYDEC WONT BE USING THIS 
AWHILE WE FIX DP COMMON ARRAY SZ 



USED FOR TEMP STORAGE AND STORING 

ED DATA. 

M[13#, LINKLIST=SSNM[23# i 



3 



#; 



00169065 
00169066 
00169067 
00169068 
00169069 
00169070 
00169071 
00169072 
00169073 
00169074 

00U9075 
00169076 
00169077 
00169078 
00169079 
00169080 
00169081 
00169082 
00169083 
00169084 
00169085 
00169086 
00169087 
00169088 
00169089 
00169090 
00169091 
00169092 
00169093 
00169094 
00} 69095 
00169096 
00169097 
00169098 
00169099 
00169100 
00169102 
00169199 
00169200 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00169201 T 
00169210 T 

00169220 T 
00169300 T 



0001 
0001 
OOOl 
0001 
0001 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 

oooi 

0001 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 
OOOl 

0003 
0003 

0003 
0003 



00169310 T 0005 

00169320 T 0007 

00169330 T 0007 

00170000 T 0010 



00174000 T 0010 
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C 
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■^ 

C 
C 

c 

c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 

o 
o 
o 

o 



o 



•u 



\ ) 



o 



o 
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o 



'O 



o 



o 1 



O" 



o 



o 



u 



o 



prt 

prt 

PRT 

PRT 
PRT 

PRT 

PRT 

PRT 
PRT 
PRT 

PRT 
PRT 

PRT 

PRT 

PRT 
PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 

PRT 
PRT 
PRT 

PRT 

PRT 
PRT 

PRT 
PRT 

PRT 
PRT 

PRT 

PRT 



* TO SAVE NEXTCART WHILE IN S INCLUDE 



44) * NEXTSCN 

45) s NEXTCARD 

INTEGER SAVECARDJ 

46) = SAVECARO 

INTEGER RESULT. INSERTDEPTHj 

47) s RESULT 

50) = INSERTOEPTH 

REAL INCLUDE; % CONTAINS "INCLUDE" 

51) - INCLUDE 

REAL DErUGADR J 

52) = HEBUGADR 

ALPHA ArRO, CHRO, iNJTIALNcRJ 

53) s ACRO 

54) = CHRO 

55) = TNITIALNCR 

ALPHA ArR» NCRJ 

56) = ACR 

57) 9 NCR 

SAVE ARRAY T TPEr 0»631 I 

60) 5 TlPE 

REAL LASTNFXT I 

61) = lASTmEXT 

ALPHA NEXTACC» NEXTACC2J 

62) p wEXTACC 

63) - NEXTACC2 

alpha blanks? 

64) * BLANKS 

ALPHA XTAJ 

65) * XTA 

ALPHA ARRAY ED0C[0}7» 0; 127 3 ; COMMENT HOLDS CODE EMITTED; 

66) s EDOC 

ALPHA ARRAY H0LDID[0I2]J 

67) = HOLDID 

REAL nxaVil.strtser; 

70) = NXAVIL 

71) = STRTSFG 

ALPHA ARRAY W0P[0»l39]J % HOLdS NaMe AND CODE OF WORD MODE OPERATORS 

72) b wOP 



c 



73) 
74) 
75) 



r>B 

TB 
CB 



76) 9 CRD 



SAVF ALPHA ARRAY DR * TB » CB [ ! 9] , 

CRD[OI 14JI 

ALPHA ARRAY XR[0«3?3J INTEGER XRI> 



77) 9 XR 

200) « XRI 

SAVE ARRAY ACCUM* EXACCUM[ ! 20] ; 

201) = ACCUM 

202) = EXACCUM 

REAL ACrUMSTOP* EXACCUMSTQP ; 

203) s ACCUMSTOP 

204) = FXACCUMSTOP 

REAL DB1.0W* 

205) b DBLOW 

real max; 

206) c MAX 



00174100 T 0010 

00174200 T 0010 

00174300 T 0010 

00174310 T 0010 

00175000 T 0010 

00176000 T 0010 

00176500 T 0010 

00176502 T 0012 

00177000 T 0012 

00178000 T 0012 

00179000 T 0012 

00180000 T 0012 

00181000 T 0014 

00182000 T 0016 

00183000 T 0016 

00184000 T 0017 

00185000 T 0020 

00185100 T 0021 

00186000 T 0023 

00186100 T 0025 

00187000 T 0025 

00188000 T 0025 



c 



^ 



c 



c 



c 



v^ 



c 
c 
c 
c 



c 

c 
c 



c 



KJ 



^ 



'U 



u 



vj 



o 






w 



u 



v_y 



D 

O 



^ 



■ S 



^ 



^ 






u 



ALPHA ArRl» CHR1J 
PRTC207) = ACR1 
PRTC210) s CHR1 

alpha array pfRiodwordcouojj 

PRTC211) s PfRiOdWORD 

REAL ARRAY MAPrO»7]J 
PRTC212) = MAP 



PRT(2l3) b Fl 

PRTf2l4) b F2 

PRT(215) = CI 

PRT(2t6) = C2 



REAL Fl', F?J 
INTEGER Ci» C2J 
DEFINE 



RSp=14 #» RSP1B!5 ft RWps29 #» 
RSH*41 #, rSH1=42 *» rWS = 83 t\ 

ALPHA ARRAY RESFRVEDWORDSLPC OsRWP.J » RESLENGTHLP » LPGLOBALC »RSP] * 
PRT(217) = RESERVEDWORDSLP 
PRTC220) b RESLENGTHLP 
PRTC221) - LPGLORAL 

RESeRVedWORdS tO}RWS]» RESLENGTH COIRSHJ i 

PRTC222) s RESERVEDWORDS 
PRTC223) = RESLENGTH 

SAVE REAL ARRAY PR, OPST CO * 253 ; % USED IN EXPR ONLY 
PRTC224) s PR 
PRT(225) s OPST 

DEFINE PARMLlNK b LSTT#» 

ALPHA buff* bufl, symbol* 

PRTC226) b BUFF 
PRT(227) = RUFL 
PRTf230) b SYMBOL 

INTEGER TV. % INDEX INTO INFO FOR pRT OF LIST NAMES 
PRT{231) * TV 

SAVESUBS* % MAX n UmBEr OF SUBSCRIPTS FOR NAMELlST IDENTIFIERS 
PRT(232) = SAVESUBS 

NAMEINDJ % INDEX InTo NAmLIST IDENIFIERS ARRAY 
PRTC233) ~ NAMEIND 

ARRAY NAMLI5TC082561J % ARRAY TO STOKE NAMELlST IDENTIFIERS 
PRT<234) = NAMLIST 

ALPHA LISTID; 
PRTC235) s LISTID 

REAL ARRAY BDPRT[0!20]J REAL BDXJ 
PRTC236) = rdPRT 
PRTC237) b BOX 

DEFINE MAXSTRlNG = 49#J 

ALPHA ARRAY STRl NGARRAY C \ MAXSTRlNG] t 
PRT(24Q) b STRTNGARRAY 

REAL STRINGSIZFJ % NUMBER Of WORDS IN STRING 

PRTC241) b STRlNfiSiZF 

DEFINE L.STMAX b 256#> 

REAL ARRAY LSTT, LSTP[ : LSTMAX 3 S 
PRT f 2/l2) b LSTT 
PRTC243) b LSTP 

INTEGER LSTI»lSTS,|.,STA; 
PRT(2445 * LSTI 
PRTC245) ■ LSTS 
PRTC246) p LSTA 



00J89000 T 0025 

00190000 T 0025 

00191000 T 0027 

00192000 T 0029 

00193000 T 0029 



00194000 T 0029 

00194020 T 0029 

00194040 T 0029 

00195000 T 0029 



00195010 T 0033 



00196000 T 0036 



00197000 T 0038 
00198000 T 0038 



00199100 T 0038 

00199120 T 0038 

00199130 T 0038 

00199200 T 0038 

00199300 T 0040 

00200000 T 0040 



00201000 T 0041 

00202000 T 0041 

00203000 T 0043 

00204000 T 0043 

00205000 T 0043 



00?06000 T 0045 
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■ l l 
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DEFINE MAXOPFILES s 63#» B ! GGESTF ILENB - 99** 
ARRAY FT LE I NF0C0J3»0! MAXOPFILES] J 
PRTC247) s FILEINFO 

DEFINE % SOME FILE STUFF 

SLOWV m 2#» 

FASTV = 1## 

SFNSPDEUNFs Cll8]#t 

sensf= ciii]*» 

SPDF b [2S23#, 

EUNF = [4;5]#, 
FPBVERSIONb 1#, 
FPBVERSF = tll8]#, 
DKAREASZ b [9l39]#. 

fNdfildffb** 

INTEGER MflXFlLFS* 
PRTC250) e MAXFlLES 

ARRAY TfN[0»137J* 
PRT(25t) = TEN 

DEFINE LBRANCH = 50#* 

REAL ARRAY BR ANCHESrO I LBRANCH] * REAL LAX, BRANCHX* 
PRT(252) b BRANCHES 
PRT(253) b LAX 
PRT{254) = BRANCHX 

INTEGER INXFIL»FILEARRAYPRTJ 
PRTC255) b INXFIL 
PRT(256) b FILEARRAYPRT 

DEFINE MAXC0MB15 # J 

INTEGER SUPERMAXCOMJ %%% SUPERMaXCOM = 128x( MAXCOM+l ) t 
PRTC257) * SUPERMAXCOM 

ALPHA ARRAY C0M[0JMAXC0M»O:l27] * 
PRTC260) s COM 

REAL NEXTCOMJ 
PRT(261) b NEXTCOM 

ALPHA ARRAY INf0[0j31» 01127]; 
PRTC262) s T NFO 

REAL ARySZ* 
PRT(263) * aRYSZ 

ALPhA ARRAY EXTRAINF0[0;31, Ot 1273 5 
PRT(264) b FXTRATNFO 

REAL EXpTi, EXPT2. EXPT3> 
PRTC265) = EXpTi 
PRT(266) = FXpT? 
PRT(267) b EXPT3 

DEFINE IR = [36I5.3#» IC s r 4 1 8 73 #; 

REAL INFA»INFB»INFCJ 
PRT(270) b INFA 
PRTC271) b 1NFB 
PRT(272) b i NFC 

INTEGER NEXTINFO* GLOBALNEXT I nFO » NEXTEXTRA] 
PRTC273) b NEXTINFO 
PRTC274) = GLOBALNEXTINfO 
PRTC275) b NEXTEXTRA 

INTEGER NEXTSSJ 
PRTC276) b NEXTSS 

DEFINE SHX=189#, GhXb61#J 

REAL ARRAY STACKHEADC ; SHX ] ; 
PRTC277) b STACKHEAD 



00207000 T 
00208000 T 



00208100 
00208H0 
00208120 
00208130 
00208135 
00208140 
00208150 
00208160 
00208170 
00208180 
00208490 
00209000 



0045 
0045 

0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 



C 



00210000 T 0047 

00211000 T 0049 
00212000 T 0049 



00213000 T 0051 

00214000 T 0051 

00214100 T 0051 

00215000 T 0051 

00216000 T 0053 

00217000 T 0053 

00218000 T 0055 

00219000 T 0055 

00?20000 T 0057 



00221000 T 0057 
00222000 T 0057 



00223000 T 0057 



00224000 T 0057 

00225000 T 0057 
00226000 T 0057 



c 
c 
c 
c 



/■-■ 



c 



v_. 



c 
c 

c 
c 
c 
c 
c 

c 

c 



u 



V. 



o 



c 
c 



REAL. ARRAY GLOBALSTACKHE ADI J r,HX ] ; 00227000 T 0058 

U PRT(300j = rLObALSTACKhfAO 

REAL LA,' DT. TEST; 00228000 T 0060 

PRTf30l3 s LA 
O PRTf302) s DT 

PRT(303) = TEST 

ALPHA LADRi*LA0R2»|.ADR3»LADR4»LADR5»L!nFA| INTEGER LlNDX»LADDRJ 00229000 T 0060 

O PRTC304) = LADR1 

PRT(305) = LA0R2 

PRTC306) = LA0R3 

O PRTC307) = LADR4 C 

PRTC310) = LA0R5 

PRTOll) = LINFA 

U PRT(312) s LINDX C 

PRT(313) = LAD0R 

DEFINE MAXD0Ss20#; 00230000 T 0060 

O ALPHA ARRAY D0TEST, D0LAB [ ? MaXqOS J ; 00231000 T 0060 C 

PRT(3l4) p D0TFST 

PRT(315) s nOLAB 
'^ ALPHA LtSTARTJ 00232000 T 0062 <~ 

PRTC316) s LISTART 

ALPHA ARRAY I NTr i NUMj NTMt + NUMI NTMU2] i 00233000 T 0062 

^J PRT(3l7) s fNT 

ALPHA ARRAY TYPFS[0J6] f KLASSrOl 14] | 00234000 T 0066 

PRTC320) b TYPrS 
'-' PRTf321) s KLASS 

tntfgeR op, prfc» tp# nt 00235000 t 0069 

^ PRTf322) s OP 

'^ PRTf3?3) a PREC 

PRT(3?4) = IP 

PRT(325) = IT 
^ DEFINE DUMPSIZE =1?7 #J 00237000 T 0069 

ARRAY FNNH0LDC0IDUMPSIZE3; 00238000 T 0069 

PRTC326) 9 FNNHOLD 

O INTEGER FNNINDEX»FNNPRT; 00239000 T 0071 
PRT(327) s FNNINDEX 
PRTC330) = FNNPRT 

^ DEFINE MAXNBHANG = 30#; 00240000 T 0071 C 

ARRAY FNNHaNC,[0:MAXNBHANG]} 00241000 T 0071 
PRTC331) s FNNHANG 

O DEFINE iNTcLaSSbC6?3]#, I NTPARMcLASS = [9 J 3]#, \ NT I NL I NE*[ 12 f 6 ] # , 00241010 T 0073 C 

TNTPRT =[24:6]#, INTPARMS =C30?6]# f iNTNUM st36:i2]#» 00241020 T 0073 

TNAM =Cl2?36]#t INTX *[2»t0]#, INTSEEN =[2513* i 00241030 T 0073 

O DEFINE 00241200 T 0073 i ^- 

TNSFRTMAX s20 Ii % MaX NO OF RECURSIVE CALL ALLOW ON LIB ROUT 00241220 T 0073 

fNSFRTcOP s INSERTINFOCINSERTDEPTH.4] #• 00241240 T 0073 

O TNSFRTMID = iNSERTlNFOr INSERTDEPTH.O] #, 00241260 T 0073 C 

TNSFRTFID = TNSERTJNFOr INSERtDEPTH»U #• 00241280 j 0073 

,NSFRTlNX s jNSERTlNFOr INSERTDEPTH.2] f, 00241300 T 0073 

^J TNSFRTSEQ b iNSERTlNFOr INSERTDEPTH»3] #J 00241320 T 0073 C 

ARRAY InSERTinF0[0»INSERTmAX»OJ4]> 00241360 T 0073 
„ PRTC332) * InSErTInFO 

O DEFINE mSrWbh # J 00241900 T 0075 C 

ALPHA ARRAY MESSAGE[0»MSRW»0»96] J 00242000 T 0075 
PRTC333) * MESSAGE 

O BOOLEAN ARRAY MSFL[0«MSrW] ; 00242050 T 0077 ( ~ 
PRTC334) s MSFL 



c 
c 

r 



C 

c 



•^.J 



o 



PRTC335) 
PRTC336) 

PRTC337) 
PRT(340) 

PRT<341) 
PRT{342) 



ARRAY LINEDICT[0l7>0»1273; 
CO:il#o;i27}i 



2 line dictionary array 
line segment array 



x 



alpha 
linedict 

alpha array lineser 

LINESEG 

ARRAY TSSMESACOM5] 

TSSMESA 

INTEGER NOLINI 
NOLlN 

REAL LASTADDR J 
LASTADDR 

[NTFGER waRNcount i 2X2 COUNTS NUMBfR OF TSS WARNINGS, 
WARNcOUNT 



i 222 BIT FLAGS PRNTD ERR MESSGS C<748) 



X NUMBER Of ENTRIES IN LINE SEGMENT 
2X2 STORES LAST ADR, 



<J 



o 



u 



■w- 



o 
o 
o 
o 

o 



DEFINE CE a 

i.ASTC = 

SEGNO a 

CLASS = 

FQ b 
SUBCLASS = 

CLASNSUB a 

ADJ = 

TWOD a 

FORMAL a 
TYPEFIXED= 

ADDR a 

LINK a 

RASE = 

SIZE » 
BASFNSIZE? 

NEXTRA a 

ADINFO s 

RELADD s 

TOCF b 

TOSFGNO a 

TOLaSTC s 

tQcLass » 

tOeQ 
tosubcl = 

TOADJ a 

JOFORMAL a 

TOTYPF a 

TOADDR a 

TOLTNK a 

TOBASE a 

TOSIZE a 

TONEXTRA - 

TOADINFO a 

torfLadd a 

XTHF FOLLOWING 
XOF THE "INFO" 
UNKNOWN a 
ARRAYID a 
VARID a 
STMTFUNlDa 
NAMFLIST a 

FORMATID a 
LABFLID = 
FUN ID a 



r2*M*t 

r3*iP]*» 

T3»9]#» 
tl5*53#» 

r?o«i]#» 

[21J3J#» 

C)4I103#» 

[14ll]#» 

C14H3#» 

[13U3#» 

tl2M3*f 

t24>123#, 

C36J12]#. 

C 18 8 153#* 

[33I15]#. 

1 18 » 303# , 

t2»6]#. 

C8?10]#, 

t2H15]#, 

? i 47 : 1 #» 

3J39»9#, 

3?36J12#, 

15:43:5#, 

20847»1#, 

2H45l3#, 

14U7|1#, 

J 35 47 : 1#, 

l?«A7ll#, 

24«36?12## 

36I36H2#» 

18J33H5#» 

33:33 ; 15*. 

2»42«6#» 

8J38!l0#, 

21 : 33 J 15#, 
CLASSES APPEAR 
ARRAY* AND MftY 

0#» 

1#» 

2#» 

3#» 

4#» 

5#» 

6#. 

7#. 



X 
X 

2 
2 
2 
% 
% 
2 
% 
X 
% 
% 
% 
% 
2 
X 
% 
% 
% 
2 
% 
X 
% 
2 
2 
2 
% 
X 
2 
2 
% 
2 
2 
IN 



tNfa 
tnfa 

INFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFC 
INFC 
INFC 
INFC 
INFC 
INFC 
INFA 
INFA 
INFA 
INFA 
INFA 
TNFA 
INFA 
INFA 
INFA 
INFA 
INFA 
INFC 
INFC 
INFC 
INFC 
INFC 
INFA 
THE 



1ST WORD OF EACH 3-WORD 



BF COPIED TO INFA. CLASS, 



$996- 
2996« 

2996- 
2996- 

2996" 
2996- 
2996- 
2996- 
2996- 
X996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
%996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
2996- 
ENTRY 
2996- 



00242100 


T 


0079 


00242200 


T 


0081 


00242220 


T 


0083 


00242300 


T 


0084 


00j?42700 


T 


0084 


00242750 


T 


0084 


00243000 


P 


0084 


00?44000 


P 


0084 


00p45000 


P 


0084 


00?46000 


P 


0084 


00246100 


P 


0064 


00247000 


P 


- 0084 


00248000 


P 


0084 


00249000 


P 


0084 


00250000 


P 


0084 


00251000 


P 


0084 


00252000 


P 


0084 


00253000 


P 


0084 


00254000 


P 


0084 


00255000 


P 


0084 


00256000 


P 


0084 


00257000 


P 


0084 


00258000 


P 


0084 


00259000 


P 


0084 


00260000 


P 


0084 


00261000 


P 


0084 


00262000 


P 


0084 


00262100 


P 


0084 


00263000 


P 


0084 


00263100 


P 


0084 


00264000 


P 


0084 


00265000 


P 


0084 


00266000 


P 


0084 


00267000 


P 


0084 


00268000 


P 


0084 


00269000 


P 


0084 


00270000 


P 


0084 


00271000 


P 


0084 


00272000 


P 


0064 


00273000 


P 


0084 


00274000 


P 


0084 


00274998 


C 


0064 


00274999 


C 


0084 


00275000 


T 


0084 


00276000 


T 


0084 


00277000 


T 


0084 


00278000 


T 


0084 


00279000 


T 


0084 


00280000 


T 


0084 


00281000 


T 


0084 


00282000 


T 


0084 



L 



c 
c 
c 



c 



c 



u 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 

o 
o 

o 

o 



o 



u 



o 



O 



o 



V-J 



o 

o 
o 

o 

o 
o 



*TH 



tNtrfunido 

SUBRID s 
BLOCKID = 
FlLEID b 
SUBSVAR s 
E;XpCLASS s 

SBVEXp 
I.ISTSID - 
JUNK ■ 

DUMMY • 

NUMCUSS b 
RESERVED = 
HEADER 9 
FNDCOM = 
F FOLLOWING 



8#. 
9#, 
10#, 

12#» 
13** 
14#* 

15#* 

16#* 

17#» 

27#» 
28#, 
29#. 
30#» 
31#. 
SUBCLASSES 



XNOT A GENUINE CLASS 



APPEAR IN THE 1ST WORD OF SOME 3-W0RD*996« 



DEFINE 



DEFINE 
DEFINE 



TRTFS OF THF "INFO" ARRAY* AND MAY BF COPIED TO I NFA. SUBCLASS. 

TNTYPE * ]#, 

STRiNGTYPE=2#» 

REALTYPF b 3#. 

L,0f,TYPE = 4#» 

nOUBTYPE s 5*» 

COMPTYPE s 6#J 

EOFs 500#, IDs 50i#, NUMb 50?#, PLUS= 503#* MINUSb 504#» 

STARb 505#> SLASHs 506#. LPARENb 507#. RPARENs 508#» 

EQUAL= 509#» COMMA* 510#» SEMI- 51i*» DOLLARbO*. UpARR0W»0# I 

THRU = STEP 1 UNTIL t} <g996- 



FORMAT FD 



ADD 
CDC 
DUP 

GFC 
ISO 
LOD 

MKS 

XRT 

SSN 
X IT 

DIA 
AD2 
SSF 

T0P = 



b 16#* 
b168#* 
B26l#* 
*29Ht, 
=532#* 
b260#* 
b 72#* 
- 12#» 
b 70# 
= 71#. 
s 45#* 
*17#, 
b280#» 
262# 



BBC 

CHS 

EQUL 

GFW 

ISN 

LOR 

MUL 

RDV 

» SSP 
ZP1 
DIB 

SB2 = 
FTF 



BBW b 

COC b 

GBC b 

GRTRb 

LEQL- 

LQV b 

NEQL- 

RTN b 

s 582#» STD 

=322#* DIU b 

= 49#, TRB - 

49#, ML2 b 

=453#> CTC 



= 22#» 
= 134#* 
! 581## 
=806#» 
=5a8#» 

= 35#> 
8 64#» 
-896#» 



534#» BFC b 38# 

40#» KOM Bi30# 

278#. GBW =790# 

37#» IDV b384# 

533#» LND b 67t 

I31#t LESSb549# 

69#, NOP s jj# 

39#, RTS b167#» 
b 68 tf * SUB 

128## STN Bi32# 
53#» ISO = 37# 
65#* DV2 b129#, 
709#, cTF = 965) 



» BFW s 550# 
» DEL b 10# 
» GEQL= 2i# 
» INX b 24# 
» LNG b 19# 

* MDS = 515# 

* PRL b i8# 
SND - 132# 

b 48#» XCH b 133# 



FTC = 197# 



X100t"NEXT = "» I3»X2*2A6) i 



PRTC343) a fd 



00283000 
00284000 
00?85000 
00?86000 
00?87000 
00288000 
00289000 

00290000 
00290050 

X996- 00290055 
00290100 
00291000 
00292000 
00293000 
00294000 
00294998 
00294999 
00295000 
00296000 
00297000 
00298000 
00299000 
00300000 
OO3O5OOO 
00302000 
00303000 
003J6000 
00317000 
00318000 
00319000 
00320000 
00321000 
00322000 
00323000 
00324000 
00325000 
00326000 
00327000 
00328000 
00329000 
OO33OOOO 

00330010 

00331000 

00332000 

START Of SFGMFNT 



0084 
0084 
0084 
0084 
0084 
0084 
0084 

0084 
0084 

0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
008/1 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 



c 



<_ 



r* 



C 



C 
r- 

c 
c 
c 

r~ - 

c 
c 



********** 



FORMAT SEGSTRTCX63, » START OF SEGMENT **********«, J4)» 

PRTf344) b SEGSTRT 

FLAGR0UTiNEF0RMATCX41>A6,A2»Xl#2A6," ("» Al , I *,">") , 
XHEDMCX40, "CROSS REFERENCE LISTING OF MAIN PROGRAM"* X41 , /. 

X40," --- -----*- - ---,.- -»»X41)j 

XHEDS(X38» "CROSS REFERENCE LISTING OF SUBROUTINE "»A6»X38»/* 



3 IS 9 LONG* NEXT SEG 
00333000 T 0084 
START OF SEGMENT ********** 



3 

2 

4 



X38 



"»A6»X38)» 



XHEDF(X35»"CR0SS REFERENCE LISTING OF "*A6»A1»" FUNCTION "»A6» 
X35»/»X35»" — — , '.A6*A1* ,, * "»A6» 



00333010 
00333050 
00333055 
00333060 
00333065 
00333070 
00333075 



0084 
0084 
0084 
0084 
0084 
0084 
0084 



c 
c 
c 



c 



v_ 



X35)» 
^ XHEDG(X43»"CR0SS REFERENCE LISTING OF GLOBALS" » X43* /» 

X43»" - ".X43)» 

XHEDBCX34»"CR0SS REFERENCE LISTING OF BLOCK DATA SUBPROGRAM" . X35. 
^ /»X34»'» — — — — — — ------- -. ----- ---- --------„♦», X35)t 

SEGFND (X70." SEGMENT". 1 5* " iS'M5»" LONG")! 

4 IS 
- ARRAY PnPRT CO»31»Ol63]; 00335000 T 0084 C 

PRTC345J = POPRT 

REAL PDTNXj X INDEX OF LaST fNTRY IN PDPRT 
O PRTC346) = PDINX L. 

Real tsfgsz! * running count of total segment size? 

PRTC347) s TSEGSZ 
J COMMENT FORMAT Of PRUSEGMeNT ENTRIES, IN PDPRT! OO338OOO T 0086 C 

DEFINE STYPf= [1I2J*# % = PROGRAM SFGMENT-SEGMENT ENTRY ONLY 

STYPC= 1U6I2## X 1 s MCP INTRINSIC 

^ X 2 a DATA SEGMENT 00341000 T 0086 C 

DTYPF= [452]#» X = THUNK - PRT ENTRY ONLY 

DTYPC= 4J46J? *,% 1 = WORD MODE PROGRAM DESCRIPTOR 

^ % 2 = LABEL DESCRIPTOR 00344000 T 0086 <- 

X 3 s CHARACTER MODE PROGRAM DESCRIPTOR 

PRTAF* [8«10]#» X ACTUAL PRT ADDRESS - PRT ENTRY 
^ PRTAC- 8»38!i0#, 00347000 T 0086 <~ 

RELADF s tlBllO]*, X ADDRESS WITHIN SEGMFNT "PRT ONLY 



,'"S 



RELADC= 18I38J10*. 



^ , SqNOfs [28SiO]#, X SFGMENT NUMBER - BOTH 00350000 T 0086 C 

SGNOc= 28{38j10]!(, 

DKAI s t!3«15]#. X RFLATIVE DISK ADDRESS - SEGMENT ENTRY 
^ DKAC a 13!33J15#, 

SEGSZF «[38!l03#» % SfGMeNT SlZF " SfGMeNT entry 
SEGSZC =38J38J10#?X MUST BE if PRT ENTRY 
U DEFINE * SOME EXTERNAL CONSTANTS 00355100 T 0086 C 

BLKCNTRLINT b 5#« 
FPLUS? = 1538#» 
O ENDEXTCnNDEFa#! nn^r^n t aad^ "' 

DEFINE PDIR ~ PD I N* , [ 37 * 5J t, 
PDIC a PDIN* • tft2«63#! 
O DEFINE CIS » CRDt0]#» X CARD 00358000 T 0086 C 

TIS s CRDtl]## X TAPE 
TOS = CRDf2]#« X meW TaPE 
'-> LOS = CRDC3J#J * PRINTER 00361000 T 0086 U 

DEFINE pWROOT = ROOT,IRtRO0T,IC t, PWI a I , I R# I f IC # ! 
DEFINE gLOBALNEXT=NEXT#; 
O BEGIN X SCAN FPB To SEE IF VARIOUS FILES ARE DISK OR TAPE 00364000 T 0086 O 

INTFGER STREAM PROCEDURE GFTFPB(Q)! VALUE Qj 
PRTC350) u *SEGMENT DESCRIPTOR* ^ 

^ „„ START OF SEGMENT ********** 5 O 

PRTC351) = GFTFPB 

BEGIN „„_.,.._ 

^ S| * LOC GETFPB! SI * SI - 7} DI 1- LOC QJ D! * DI + 5; 00367000 T 0000 O 

SKIP 3 DB! 9c IF SB THEN DS «■ SET FLSE DS * RESET! 
~ SKIP SB)! WVJO , WW u , wu , 

^ DT * LOC Q! Si * Q! nS * WnS! Si <- Q? GETFPB ♦• Si! 00370000 T 0003 O 

END! 
INTEGER STREAM PROCEDURE GNC(Q)l VALUE «? 
^ PRTf352) s GNC O 

BEGIN SI * QJ SI * SI + 7! DI *■ LOC GnC! DI * DI +7! DS *CHR END! 

^ o 

c 



00333076 


T 


0084 


00333080 


T 


0084 


00333085 


T 


0084 


00333090 


T 


0084 


00333095 


T 


0084 


00334000 


T 


0084 


150 LONG. 


NEXT SEG 


00335000 


T 


0084 


00336000 


T 


0086 


00337000 


T 


0086 


00338000 


T 


0086 


00339000 


T 


0086 


OO34OOOO 


T 


0086 


00341000 


T 


0086 


00342000 


T 


0086 


00343000 


T 


0086 


00344000 


T 


0086 


00345000 


T 


0086 


00346000 


T 


0086 


00347000 


T 


0086 


00348000 


T 


0086 


00349000 


T 


0086 


00350000 


T 


0086 


00351000 


T 


0086 


00352000 


T 


0086 


00353000 


T 


0086 


00354000 


T 


0086 


00355000 


T 


0086 


00355100 


T 


0086 


00355H0 


T 


0086 


00355120 


T 


0086 


00355990 


T 


0086 


OO356OOO 


T 


0086 


00357000 


T 


0086 


00358000 


T 


0086 


00359000 


T 


0086 


00360000 


T 


0086 


00361000 


T 


0086 


00362000 


T 


0086 


00363000 


T 


0086 


00364000 


T 


0086 


00365000 


T 


0086 


SEGMENT 


********** 


00366000 


T 


0000 


00367000 


T 


0000 


00368000 


T 


0001 


00369000 


T 


0002 


00370000 


T 


0003 


00371000 


T 


0004 


00372000 


T 


0005 


00373000 


T 


0005 



u 



integer frBbase; 00174000 t oooa 

U PRTC353) = FRBBASE v_ 

FpBBASE *■ GETFpBO)? 00375000 T 0008 

TIS * TOS «• 50J CIS * LOS + 01 00376000 T 0010 ~ 

U IF GNCCFPBBASE+3) = 12 THEN CIS * 150? % CARD 00377000 T 0015 ^ 

IF GNCCFPBBASE+8) =12 THEN LOS * 150; % PRINTER! 00378000 T 0019 

IF GNCCFPBBASE+13) = 1? THEN TOS ♦• 150J * NEW TAPE; 00379000 T 0023 

^ IF GNCCFPBBASE+18) =12 THEN TI S * 150; % TAPE 00380000 T 0027 ^ 

END; 00381000 T 0031 
PRTC354) = *SEGMFNT DESCRIPTOR* 

O 5 IS 32 LONG* NEXT SEG 2 C 

BEGIN COMMENT INNER BLOCK; 00382000 T 0088 

% *** DO NOT DECLARE ANY FILES PRIOR TO THIS POINT, DO NOT ALTER 00383000 T 0088 

O % SEQUENCE OF FOLLOWING FILE DECLARATIONS 00384000 T 0088 C 

FILE CARD (5»10,CIS)I 00385000 T 0088 
PRTC355) = *SEGMFNT DESCRIPTOR* 



i * 



START Op SFGMENT ********** 6 v_ 

PRTC353) = cARn 

DEFfNp LiNFSlZE s 900 # ; 00386000 T 0004 

O SAVE FTI.F LfNF DISK SeRiAL r 20 ? L iNES I ZE] I 2, 15, LOS, SAVF 10); 00387000 T 0004 C 

PRTf356) a LINE 
PRT(357) e 

C PRT(3fiO) = FILE ATTRBUTs (J 

SAVE FIi.E NEWTApE DISK SERIAL t?0 » L I NES I ZE J "FoRSYm" 1 2 * 10 »ToS, SAVE 10); 00388000 T 0011 
PRTOfil) - NEWTAPE 

■^ FILE TApE "FORSYM" C?»10'TlS); 00389000 T 0019 ^ 

PRK362) * TAPE 

FILE REMOTE 19(2tl0) ; 00389500 T 0023 ^ 

( w PRTC363) » REMOTE O 

DEFINE CHUNK =180#; 00390000 T 0027 

DEFINE PTR=L1NE#»RITE=LINE#»CR=CARD#,TP=TAPE#; X515- 00391000 P 0027 

O FILE CODE DISK RANOOM C20?CHUnKJ C4»30»SaVe ABS ( SAVET I ME) ) ; 00392000 T 0027 C 

PRTC364) = CODE 

FILE LIRRARYFIL DISK RANDOM (2»l0. 150)1 00392400 T 0035 

O PRTC365) = LIBRARYFIL 

DEFINE LF s LIBRARYFIL*; 00392600 T 0039 

FILE XRpFF DISK SER I ALC20 1 1500 ] (2» XRBUFF ) ; 00392700 T 0039 

C PRTC366) = XREFF 

FILE XRrFG DISK SER I ALC20 H 500 ] C 2» 3, XRBUFF ) ; 00392800 T 0043 

PRTC367) = xREFG 

O REAL DALOc; % DISK ADDRESS 00393000 T 0047 C 

PRT(370) = oALOc 

labfl postwRapup; 00393100 t 0047 

o procedure fmltnumfn); value nj real nj forward* 00394000 t 0047 c 

PRTf37l) n EMITNUM 

REAL PROCEDURE lOOkEORI nTRI NSi C ( l ) t VALUE l? REAL L? FORWARD ; 00394500 T 0051 
O PRTC37?) - LOOKFoRInTRImSIC 

PROCEDURE SEGOVF; FORWARD; 00395000 T 0051 
PRT(373) ■ SEGOVF 

U DEFINE BUMPADRs IF ( ADR*ADR+1 ) = *j089 THEN SEGOVF*; 00396000 T 0051 CJ 

DEFINE RUMPLOCALS = BEGIN IF LOc ALS*L0C ALS+ 1 >255 THEN BEGIN FLAGC148); 00396500 T 0051 

L0CALS*2 END END#; 00396510 T 0051 -. 

[ J DEFINE RUMPPRT = BEGIN IF PRTS*PRTS+1 >1 023 THEN BEGIN FLAG(46); 00396600 T 0051 C 

PRTS*40 END END#; 00396610 T 0051 

DEFINE FDOCI = ADR.[36I33» ADR, [ 39 ? 7 ]# ; 00397000 T 0051 

O DEFINE TWODPRT=IF TWODPRTXsO THENC TW0dPRTX«-PRTS*PRTS + 1 )ELSE TWODPRTX*; 00398000 T 0051 O 

REAL PROCFDURF SEARCH(E)* VALUE El REAL El FORWARD! 00399000 T 0051 



C 

c 



c 



/-> 



u 



o 



■— <■ 



u 



o 



n 



u 



u 



PRT{374) * SFARCH 
U PROCEDURE PRlNTCARDJ FORWARD) OO4OOOOO T 0051 ^ 

PRTC375) = PRINTCARD 

INTEGER PROCEDURE FIFLDC*)) VALUE X) INTEGER XI FORWARD ; 00400010 T 0051 ~ 

U PRT f 376) s FIELD - 

ALPHA PROCFDURE NEEDfT, C){ VALUE T. C) ALPHA T» C? FORWARD) OO4O1OOO T 0051 

PRT f 377) s MEED 

'o alpha procedure getspacecS)? vai.ue s; alpha S) forward; 00402000 t 0051 C 

PRT(400) = GETSpACE 

PROCEDURE EQUIV(R)} VALUE r; REAL R> FORWARD; 00403000 T 0051 

^ PRT(401) a EOUIV 

PROCEDURE EXECUTABLE! PoRWARDj 00403100 T 0051 

PRTC402) * EXECUTABLE 
■-' ALPHA PROCEDURE B2DCB)) VAlUE Bj REAL B) FORWARD; 00404000 T 0051 

PRTC4Q3) 5 B2D 

PROCEDURE DEBUGWORD (N); VALUE N) REAL Nj FORWARD; 00405000 T 0051 

O PRTC404) s DEBUGWORD 

PROCEDURE EMJTLCN); VALUE NJ REAL N; FORWARD? 00406000 T 0051 

PRTC405) = FMITL _ 

o PROCEDURE AD JUST; FORWARD? 00407000 T 0051 ^ 

PRTC406} = ADJUST 

PROCEDURE DATIMe; FORWARD; 00407500 T 0051 

O PRTC407) ? nATlMF 

PROCEDURE FMITB(A#C); VALUF A,C; REAL A» BOOLEAN C) FORWARD? 00408000 T 0051 

PRTc4iO) = FMlTR 
U PROCEDURE FIXBCN)? VALUE N; RfAL NJ FORWARD; OO4O81OO T 0051 ^> 

PRT(«11) 3 FlXB 

PROCEDURE FMiTOfNJ? VALUE N? REAL NJ FORWARD? 00409000 T 0051 

C PRTf4i2) » EM I TO 

PROCEDURE EMIT0PDC|,IT(N)? VALUE N? REAL Nl FORWARD) OO41OOOO T 0051 

PRT(4135 a EMITOPDCLIT 
O PROCEDURE EMITDESC|,IT(N)? VALUE N? REAL Nl FORWARD? 00411000 T 0051 

PRT(414) a EMITDESCLIT 

PROCEDURE EMITPAIR(L*0P)? VALUE L'OP? INTEGER L'OP? EORWARD; 00412000 T 0051 

^ PRTC415) * EMlTpAlR 

PROCEDURE EMITN(N); VALUE N? REAL NJ FORWARD; 00413000 T 0051 

PRTC416) = EMITN ^ 

O PROCEDURE ARRAYDECCD; VALUE II REAL I? FORWARD) 00414000 T 0051 O 

PRTC417) * ARRAYDEC 

INTEGER PROCEDURE ENTERCW* E)j VALUE W» Ej ALPHA Wi E? FORWARD) 00415000 T 0051 

O PRT(420) = ENTER 

REAL PROCEDURE PRGDESCBLDRf A »B » C »D ) j VALUE A»B,C,D) REAL A»B»C,D) 00416000 T 0051 

PRTC421) = PRGDESCBLDR _ 

O FORWARD? 00417000 T 0051 <-) 

PROCEDURE WRITEDATA(A#B,C); VALUE A,B) REAL A»B? 00418000 T 0051 

PRTC422) = WRlTFDATA 
O ARRAY Cr03; FORWARD) 00419000 T 0051 o 

PROCEDURE SCAN) FORWARD? 004?0000 T 0051 

PRT(4?3) = SCAN 

^ PROCEDURE SegMfNT(a»B#C»D>) VaLUE A.BfC? 00421000 T 0051 ^ 

PRTf4?4) s SEGMENT 

RFAL A,B? BOOLEAN C) ARRAY Dr0»0]? FORWARD) 00422000 T 0051 

O STREAM PROCEDURE MOVESEQ COLDt NEW) ? BEGIN Dl*OLD? Si*NEW) DS*WDS END ? 004??0i0 T 0051 ^ 
PRT(4P5) ■ MOVESEQ 

PROCEDURE WRlTAROWf N»ROW)? VA|,UE N? INTEGER N? REAL ARRAY RoWtOJ ) 00422100 T 0051 
O PRT(4?6) * WRITAROW 

IF SInGJ.EToG THEN WRl TEC Ll NE» n» ROW t *] ) ELSE Wr I TEC R I TE» N* ROW[ *3 ) ) 00422110 T 0052 



r- 



n 



C 



O 



O 



C 

C 



stream procedure placecd, n, x, s»e , l > » value n.e j 00426000 t 0164 

start of segment ********** 



< ^ 



PROCEDURE WRITAlIST(FMT,N,l1'L2,L3»L4»L5,L6»L7,L8) I 00422120 T 0062 
U PRTC427) = WRITALIST 

VALUE N,L1»L2»L3»L4»L5»L6,L7»L8; INTEGER NJ 00422130 T 0062 

REAL Lt»L2»L3»L4»L5»L6»L7'L8J FORMAT FMT ; 00422140 T 0062 

O BEGIN 00422150 T 0062 

PRINTBUFFCU«-L1 } 00422160 T 0062 

Ll*l J 00422170 T 0064 

G ' FOR L2«-L2»L3»L4»L5»L6»L7»LB DO PRl NTBUFFCL1 «-L 1 + 1 3 *L2 J 00422180 T 0065 C 
STACK(F + 2) => *TEMP0RARY STORAGE* 

_ IF SiNGLETOG THEN WRI TEC L I NE , FMT ,FOR L 1 * 1 THRU N DO PR I NTBUFFC L1 ] ) 00422190 T 0082 

G PRTC430) = *LISTt LABEL, OR SEGMENT DESCRIPTOR* (J 

ELSE WR!TECRITE.FMT»F0R Ll*l THRU N DO PR I NTBUFFtLH ) 5 00422200 T 0090 
PRTC431) = OUTPUT(W) 
G PRTC432) * *LIST» LABEL, OR SEGMFNT DESCRIPTOR* ^ 

END WRITALIST i 00422210 T 0107 

STREAM PROCEDURE BLANK I T( A , N, P ) ? VaLUE N,P; 00422220 T 0109 
^ PRT(433) = RLANKfT U 

BEGIN Dt«-A; N(DS*8 LfT" »)J P(DS*8 L I T"99999999« ) £Nd t 00422230 T 0109 

BOOLEAN STREAM PROCEDURE TSSMpSf A , B ) I VALUE Bl 00422235 T 0115 
O' PRTf434) s TSSMES 

BEGIN Sf*AJ SKIP B SB; IF SB THEN ELSE BEGIN TALL**!* TSSMES*T ALI.Y I 00422240 T 0115 

DUAJ SKIP B DBJ DS*SET END EnD OF TSSMES ; 00422250 T 0118 ^ 

w STREAM PROCEDURE TSSED I T( X, pi ,p? ,p 3,p , N ) J VALUE P1»P2»P3»N J 00422255 T 0120 G 
PRTC435) = TSSEDIT 

BEGIN DT*P»DS«-16LIT"TSS WARNINGS "; S I *X ; S I «-S I +2J DS*6CHR; DS*4LIT" "J 00422260 T 0120 

C Pl(DS*4fiLIT»A TSS HOL OR QUOTED STRING MUST BE ON I LINE ") J 00422262 T 0124 C 

P2(DS*4BLIT"THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN ") I 00422264 T 0131 

P3CD5*48L!T M THIS CONSTRUCT IS UNRESERVED IN TSS FORTRAN ") I 00422266 T 0139 

( J DS*26LIT H "J DS«-8LIT"* W ; DS*LlT w "J SI*L0C NJ DS«-3DEC END TSSEDIT J 00422268 T 0146 

PROCEDURE TSSED(X,N)J VALUE X»NJ ALPHA Xj INTEGER N i 00422270 T 0152 
PRTC436) s TSSED 

O BEGIN If NOT (LISTOG OR SEQERRORS) THEN PRINTCARD i UNPRl NTED«-FALSF J 00422275 T 0152 C 

TSSEDlTfX,Nsl,Ns2,Ns3,PRINTBUFF,WARNC0UNT*-WARNC0UNT + l) J 00422280 T 0157 

WRjTAROwCHfPRlNTBUFF) END OF TSSED ; 00422285 T 0162 _ 

O PROCEDURE FRRMESSCN); VALUE N» INTEGER NJ 00423000'T 0164 C 
PRTC437) = fRRMeSS 

BEGIN 00424000 T 0164 

00425000 T 0164 ^ 



c 



,--~\ 



c 



-J PRTf440) = PLACE 

BEGIN Dt * DJ DS 4. 6 LIT "ERROR "J 00427000 T 0000 

_ Si * LOC fii DS «- 3 DEC; DS «, 5 LIT «l »} 00A28000 T 0001 _, 

(J Sj * X} SI * SI + 2; DS #• 6 CHr; OS * 4 LIT " »; 00429000 T 0002 ; - 

S!*S| DS*6 WDSj DS*6 LIT" "j SI*LI DS«-8 CHR; DS*14 LIT" » J 00430000 T 0004 

DS - 8 LIT "X"; DS * LIT » M j 00431000 T 0008 _ 

U Si * LOC EJ DS «• 3 DEC? 00432000 T 0010 G 

END PLACEJ 00433000 T 0010 

STREAM PROCEDURE DCPLACECD, N» X * S» M# P ) ; VALUE N»P ; 00433100 T 0010 
O PRTC441) * DCPLACE C 

BEGIN DUD; DS*4LIT"ERR#"; SULOC N; DS«-3 DEC; DS*3LIT" P " ; 00433200 T 0010 

Sl*s; DS«-8CHR; DS*2LIT»! »\ SI«-X> SI«-Sl + 2; DS*6CHR; DS*54LlT" » ; 00433300 T 0013 

O PfD?*-DI-54; DS*-2LIT" "J SI*M; DS*44CHR; DS«-8LIT" ") ; 00433400 T 0022 O 

END OF DCPLACE ; 00433500 T 0025 

ERR0RCT*ERR0RCT+1 ; 00434000 T 0026 

U IF NOT MSFLCN DlV 161 THEN 00434010 T 0027 O 

BEGIN 00434020 T 0028 



o 



c 



o 



MSFLCN DIV 16UTRUE t 
CASfCN DIV 16)0F 
BEGIN ■ 
PRT(4425 s *cASF STATeMfNT DESCRIPTOR* 

F?LL McSSAGEtO.*] 



u 



^ 



vj 



: v 



O 



u 



u 



•' I 



o 



■ 1 



^J 



O 



o 



"Syntax e","RR0R 



WITH 



"," 



it . tt 



♦♦MISSing «t 
"CONFLICT" 
"MISSING " 

-Entry sT" 

"MISSING " 
"ARITHMFT" 

"LOGICAL " 
"TOO MANY« 
"TOO MANY" 

"FORMAL P" 
"FORMAL P w 

"THIS STA" 
"INFO ARR" 

"IMPROPFR" 
"DO LABFL" 
0? 



"OPER 
"ING 
"RIGH 
"MT I 
"END 

"IC E 
"EXPR 

" UEF 
"RIG 

"ARAM 
"ARAM 

"TEME 
"AY 

•• DO 

" PRE 



AToR" 
COMM" 
T P A" 
LLEG" 
STAT" 
XPRE" 
ESSI" 
T PA" 
HT P" 

ETER" 
ETER" 

NT I" 
VERF" 
NEST" 
VIOU" 



" OR PUnC" 
"ON AND/0" 
"RENTHESI" 
"AL IN MA" 
"EMENT " 

"SSION RE" 
"ON REQUI" 
"RENTHESE" 
"ARENTHES" 

" ILLEGAL" 
" ILLEGAL" 

"LLEGAL I" 
"LOW " 
ft it 

"SLY DEFI" 



"TUATION " 

"R EQUIVA" 

"S " 

"In pGM o" 
» tt 

"QUIRED " 

"RED " 

"S " 

"ES 

" IN COMM" 

" IN EQUI" 

"N BLOCK " 
tt it 



"NED 



"LENCE AL" 
tt «t 

"R BLOCK " 
•» »f 



"ON " 
"VALENCE " 

"DATA SUB" 
•i tt 



"LOCATION" 

w If 

"DATA 
•i 



FILL MESSAGE[1»*] WITH 
"UNREcOrN","IZED STA'V'TEMfNT T"»"YPE 



"ILLEGAL " 
"FORMAT S" 
"UNDEFINE" 
"MULTIPLE" 
"ILLEGAL " 
"UnpAIRFD" 
"NOT ENnU" 
"TOO MANY" 
"FUNCTION" 
"FORMAL P" 
"ILLEGAL " 
"NUMBER 0" 
"CANNOT B" 
"SUBROUTI" 
"IDENTIFI" 

o; 



"DO STATE" 
"TATeMeNT" 
"D LABEL " 
" DEFINIT" 
"IDENTIFI" 
•♦ QUoTES '• 
"GH SUBSC" 
" SUBSCRl" 
" OR SUBR" 
"ARAMETER" 
"USE OF N" 
"F PARAME" 
"RANCH TO" 

"NE OR FU" 
"ER ALREA" 



"MeNt 

" MUS 
»i 

"ION 
"ER C 
"IN F 
"RlpT 
"PTS 
"0UTI 
" MUL 
"AMEL 
"TERS 
" FOR 

"NCTI 
"DY G 



If 

T HA" 
ff 

w 

LASS" 

ORmA" 

S " 

If 

NE P" 
TlPL" 
1ST " 
INC" 
MAT " 
ON N" 
IVeN" 



If 



"»" 



"," 



"," 



"Vf LABEL"*" 
ff 

it 



"»" 



" IN THIS"," CONTEXT" 
tt t it if it 

tt tt „ ti if 

tt tt i tt tt 

"REVIOUSL"»"Y DEFINE" 

"Y DEFINE"»"D IN HEA" 
it tt t it ti 

"ONSISTEN"#"T " 

"STATEMEN"»"T " 

"OT DEFIN","ED IN PR" 

" TYPE "i" " 



it 
ti 
ti 
it 
it 
if 
tt 
ft 
"D 

"DING 
tt 

it 

tt 

"OGRAM 



FILL MESSAGEC2#*3 WITH 
"ILLEGAL "» "FORMAT S"»"YNTAX "#" 



tt ti 



"INcORRfC" 
"iNcONSfS" 
"ARRAY T D" 

"EXPRESSI" 
"ILLEGAL " 
"ILLEGAL " 
"DECLARAT" 
"INCONSIS" 
"NO, OF P" 
"ILLEGAL " 



"T USE OF" 
"TENT USE" 
"ENTiFIFR" 
"ON VALUE" 
"FILE CAR" 
"CONTROL " 
"IOM MUST" 
"TENT USE" 
"ARAMS, D" 
"USE OF F" 



" FILE 
" °F IDfN" 
" EXPECTE" 
" REQUIRE" 
"D SYNTAX" 
"ELEMENT " 
" PRECEDE" 
" OF LABE" 
"ISAGREES" 
"ORMAL PA" 



"TtFIER " 
"D " 

"D " 

it tt 

tt ti 

" FIRST R" 
"L AS PAR" 
" WITH PR" 
"RAMETER '• 



"EFERENCE" 
"AMETER " 
"EV, REFE" 



"PROGRAM " 
ft tt 



"RENCE 
tt 



2000 

2001 
2002 
2003 

2004 

3005 
2006 
3007 
2008 
2009 

2010 
2011 

2012 
2013 

2014 

2015 



3!016 

3017 
2018 
20i9 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
S027 
2028 
2029 
2030 
2031 



", 2032 



2033 
2034 
2035 
2036 
*037 

2038 
2039 
2040 
2041 
2042 



00434030 T 0029 
00434040 T 0030 
00435000 T 0031 



START 



00 
00 

OF S 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 

00 
00 

00 

00 
00 



8 IS 



START 



00 
00 

of s 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



9 IS 



START 



00 
00 

of s 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



436000 
437000 
FGMENT 
438000 
439000 
440000 
441000 
442000 
443000 
444000 
445000 
446000 

447000 
448000 

449000 
450000 
451000 
452000 
453000 
97 LON 
454000 
455000 
FGMENT 
456000 
457000 
458000 
459000 
460000 
461000 
462000 
463000 
464000 
465000 
466000 
467000 
468000 
469000 
470000 
471000 
97 LON 
472000 
473000 

EGMENT 
474000 
475000 
476000 
477000 
478000 
479000 
480000 
481000 
482000 
483000 



T 00 
T 00 

***** 



T 

T 
T 
T 
T 
T 
T 
T 
T 

T 

T 

T 
T 

T 
T 
T 



00 
00 
00 
00 
00 
00 
00 
00 
00 

00 

00 

00 

00 

00 
00 
00 



G» NEX 
T 00 
T 00 

***** 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 

T 

G, 

T 

T 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
NEX 
00 
00 



«P« *(» l|t ™ *P 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



32 
32 

***** 

34 

34 
34 
34 
34 
34 
34 
34 
34 

34 
34 

34 
34 

34 

34 

34 

T SEG 

34 

35 

***** 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

T SEG 

37 

37 

***** 

39 

39 

39 

39 

39 

39 

39 

39 

39 

39 



10 



C 

c 
o 



,-"-", 
Ks 



c 

o 



r> 






C 

o 
o 
o 



a 









o 

O 



p 



<J 



o 



u 
o 

o 
o 



^ 



o 1 



o 
o 

o 



o 



o 
o 

G 



"ERROR JN"»" HOLLERl"»"TH LITER"»"AL CHARA" » "CTER COU" 
"ILLEGAL "»"ACTUAL P" * "ARAMETER"» " "," " 
"TOO MANY"* 1 * SEGMENT"»"S IN S0U"»"RCE PROG"»"RAM " 
"TOO MANY"*" PRT ASS" » "I GNMENTS" » " IN SOUR","CE PROGR" 
"LAST Bl,0"."CK DECLA"»"RATION H"»"AD LESS "t"THAN 102" 
0) 

FILL MESSAGE[3»*] WITH 



"NT 
tt 

11 

"AM 



"4 WORDS ". 



FILL MESSAGED**] WITH 
"ILLEGAL "*"CONSTANT"*" IN DATA"*" STATEME","NT 



"MAIN PRO" 
"PARAMETE" 
"PARAMETE" 
"PARAMETE" 
"PARAMETE" 
"PARAMETE" 
"PARAMETE" 
"PARAMETE" 
"AR iThMfT" 

"ARRAYID " 
"MORE ThA" 
"ONLY CnM" 
"TOO MANY" 
"FORMAT 0" 
"FORMAL P" 

0? 



"GRAM MIS" 
"R MUST B" 
"R MUST B" 
"R MUST B" 
"R MUST B" 

"R must b" 

"R MUST B" 

"R must b w 

"IC - LOG" 
"MUST BE " 
"N ONE MA" 
"MON ELEM" 
" FILES " 

"R NAMELI" 
"ARAMETER" 



"SING " 
"E ARRAY " 
"E EXPRES" 
"E LABEL " 
"E FUNCTI" 
"E FUNCTI" 
"E SUBROU" 
"E ARRAY " 
'♦ I c A L CON" 
"SUBSCRlP" 
"IN PROGR" 
"ENTS PER" 
n m 

"ST TOO L" 
" MUST BE" 



tt 

" » " " 

tt If If 

NT","IFIER " 
SU"»"BROUTlNE" 
DE"»"NTtFIER " 
FI","ER OR EX" 
ON"," STORE " 
T","HIS CONT" 

»» f tf If 

If f ft ff 

If , If II 

ff p II ff 

I"*"DENTIFIE" 



"IDENTIFI","ER 
"SlON "," 



"ON IDE 
"ON OR 
"TINE I 
"IDENTI 
"FLICT 

"Ted in 

"AM 

"MITTED 

m 

"ONG 

" ARRAY 



ID 



"PRESSION" 



"EXT 

if 

it 

it 

it 

"R 



FILL MESSflGEt5»*3 WITH 
"FORMAL P"*"ARAMETER"» M MUST RE"»" SIMPLE "."VARIABLE'S" 



"FORMAL P" 
"FORMAL P" 
"FORMAL P" 
"DO OR TM" 

"ILLEGAL " 
"ILLEGAL " 
"CONSTANT" 



"ARAMETER" 
"ARAMETER" 
"ARAMETER" 
"PLIED DO" 
"COMPLEX " 
"MIXED TY" 
" EXCEEDS" 



" MUST RE" 
" MUST BE" 
" MUST RE" 
" INDEX M» 
"CONSTANT" 
"PE STORE" 
" HARDWaR" 



" FUNCTIO" 
" SURROUT" 
" FUNCTIO" 
"UST BE I" 
it tt 
ft ti 

"E LIMITS" 



"N IDENTI"*"FIER " 

"INE IDEN","TIFIER " 

"N OR SUB", "ROUTINE " 

"NTEGER 0","R REAL " 

ft it t ft ii 

•t tt p tt tt 

tt ti . ti tt 



2043 

2044 

2045 
2046 
2047 



"ILLEGAL "i 


."I/O LIST". 


." ELEMENT", 


, « tt ( 


" 


". 


." 


". 


. 2048 


"LEFT StD", 


."E MUST B"< 


."E SIMPLE". 


." OR SUBS". 


."CRIPTED 


if 


."VARIABLE". 


. 2049 


"VARIABLE". 


>" EXPECTE" 


."D ". 


. " " 


it 


it 


it 


tt 


. 2050 


"ILLEGAL " 


."USE OF ," 


."OR, " 


t tt tt 


it 


•t 


, tt 


tt 


. 2051 


"ILLEGAL "« 


."USE OF ,"i 


."AND. ". 


( it ti 


it 


« 


, ii 


ti 


. 2052 


"ILLFGAL ", 


."USE OF ," 


."NOT, ". 


. " " 


t it 


it 


ii 


ii 


. 2053 


"ILLEGAL " 


."USE OF R" 


."ELATIONA" 


."L OPERAT". 


,"0R 


it 


it 


ii 


. 2054 


"ILLEGAL "j 


."MIXED TY" 


."PES «, 


. " " . 


ti 


it j 


ti 


n 


. 2055 


"ILLEGAL ", 


."EXPRESSI" 


."ON STRUC", 


."TURE ", 


it 


»t 


, tt 


it 


. 2056 


"ILLEGAL », 


."PARAMETE" 


."R ". 


. " " , 


it 


it 


ft 


tt 


. 2057 


"RECORD B", 


."LOCK GrE" 


."ATER THA". 


>"N 1023 ". 


ft 


ii j 


it 


it 


• 2058 


"TOO MAnY", 


." OPTIONA" 


»"L FILES ". 


. " " i 


tt 


it . 


. " 


ii 


. 2059 


"PILE CAR" 


."OS MUST " 


."PRECEDE " 


."Source d" 


."ECK 


«t 


. " 


ti 


• 2060 


"BINARY W", 


."RITE STA". 


."TEMENT H«, 


."AS NO LI". 


"ST 


ft 


it 


it , 


2061 


"UNDEFImE"i 


."D FORMAT". 


." NUMBER ". 


, tt »t , 


> " 


ii j 


it 


it . 


> 2062 


"ILLEGAL "< 
0? 


."EXPONENT". 


•" IN CONS". 


•"TANT "i 


»t 


it 


ft 


it . 


2063 



"» 2064 



2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 



2080 



, 2081 


, 2082 


. 2083 


. 2084 


» 2085 


, 2086 


» 2087 



10 IS 



00484000 T 

00485000 T 

00486000 T 

00487000 T 

00488000 T 

00489000 T 
97 LONG, 



00490000 T 

00491000 T 

START OF SEGMENT ** 

00492000 T 

00493000 T 

00494000 T 

00495000 T 

00496000 T 

00497000 T 

00498000 T 

00499000 T 

00500000 T 

00501000 T 

00502000 T 

00503000 T 

00504000 T 

00505000 T 

00506000 T 

00507000 T 
It IS 97 LONG, 

00508000 T 

00509000 T 

START OF SFGMENT ** 

00510000 T 

00511000 T 

00512000 T 

00513000 T 

00514000 T 

00515000 T 

00516000 T 

00517000 T 

00518000 T 

00519000 T 

00520000 T 

00521000 T 

00522000 T 

00523000 T 

00524000 T 

00525000 T 
12 IS 97 LONG* 

00526000 T 

00527000 T 

START OF SEGMENT ** 

00528000 T 

00529000 T 

00530000 T 

00531000 T 

00532000 T 

00533000 T 

00534000 T 



0039 
0039 
0039 
0039 
0039 
0039 
NEXT SEG 
0039 
0040 

******** 

0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
0041 
NEXT SEG 
0042 

0042 

******** 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 

0044 
NEXT SEG 

0044 

0045 
******** 

0046 
0046 
0046 
0046 
0046 
0046 
0046 



7 
11 



7 
12 



7 

13 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 






o 
o 
o 
o 

c 



o 



r\ 



u 



U 



O 
O 



O 



u 



'U 



O 



u 

O 
O 
O 

o 

o 



"PARAMPTE" 
"COMPLEX " 

"COMPLEX " 
"TOO MANY" 
"VARIABLE" 
"ARRAY RO" 

"Comma nR" 

"ARRAY AL" 
OS 



"R TYPE C" 
"EXPRESSI" 
"EXPRESSI" 
" FORMATS" 
" ARRAY B" 
"UNO MUST" 
" RIGHT P" 
"READY GI" 



"ONFLICTS" 
"ON iLLpG" 
"ON iLLfG" 

" RepeRfN" 

"OUNO MUS" 
" HAVE IN" 
"ARENTHES" 
"VEN BOUN" 



" WITH PR"»"EVI0U5 U","SE 
"AL IN IF"," STATEME"»"NT 
"AL IN Re","LATJON "," 
"CfD BUT ","NOT YET ", "FOUND 
"T BE FOR","MAL VARl","ABLE 
"TEGER OR"," REAL TY","PE 
"IS EXPEC","TED "," 
"DS "." "," 



If 


. 35088 


II 


• 2089 


If 


. 2090 


II 


i £091 


If 


. 2092 


If 


. 2093 


If 


• 2094 


II , 


- 2095 



FILL MESSAGEC6>*J WITH 
"ONLY Ff)R","MAL ARRA"»"YS MAY B","E GIVEN "."VARIABLE"," BOUNDS "# 



"MISSINr " 
"SUBSCRTP" 
"ARRAY SI" 
"COMMON 0" 

"This sta" 

"REAL OR " 
"ARRAY RO" 

"REPUCFM" 
"IDENTIfI" 

"Left p*r" 

"ILLEGAL " 

"Right pa" 

"STATeMfN" 
"SlASh F*" 

••entry st« 

0* 



"LEFT PAR" 
"T MUST B" 
"ZE CANNO" 

"R EQUIV " 
"TEMENT I" 

"INTEGER " 
"UND INFO" 
"ENT OPFR" 
"FR EXPEC" 
"ENTHESlS" 
"FORMAL P" 
"RENTHESI" 
"T NUMBFR" 
"PECTED " 

"ATEMENT " 



"ENTHESlS" 
"E INTEGE" 
"T EXCEED" 

"BL.OCK CA" 
"LLEGAL I" 
"TYPE RpQ" 
"RMATION " 
"ATOR EXP" 
"TED " 
" EXPECTE" 

"aRametfR" 

"S EXPECT" 

" EXPECTE" 
" ii 

"CANNOT B" 



" IN IMPL","IED DO "," " 
"R OR REA"»"L "," " 
" 32767 W","ORDS "," " 
"NNOT EXC","EFD 3276", "7 WORDS " 
"N L0GICA","L IF 
"UlRED "," 
"REQUIRED"," 

"ECTED "," 
if 



« , 



"D 
ii 

"ED 

"D 
ii 



"," 
"," 
"," 



« ii 
•i if 



"," 



"EGIN PRO", "GRAM UNI","T 



FILL MESSAGEC7f*] WITH 
"ARRAY mU","ST BE D I"» "MENS I ONE" » "D PRIOR ","T0 EQUIV"," STMT 



FILL MESSAGE[8,*] WITH 

"TOO MANY"," ENTRY S", "TATEMENT" , "S IN THI","S SUBPRO", "GRAM 

"DECIMAL "."WIDTH EX"»"CEEDS Fl"»"ELD WIDT","H "," 
"UnSPECiF","IED FIEL"»"D WIDTH "»" "," "," 
"UNSPECIF","IED SCAL"*"E FACTOR"*" "»" "," 
"ILLEGAL "."FORMAT C"i "HARACTER"* " "." "," 



2096 

2097 
2098 
2099 
2100 
2101 

2102 
2103 
2104 
2105 
2106 
2107 
£108 
2109 
2110 

2111 



"» %1 12 



"INTEGER " 


."CONSTANT" 


»" EXpECTE" 


."D " 


, n 


if t « 


if 


• XI 1 3 


"COMMA FX" 


."PECTED " 


, " «f 


» " " j 


. " 


ii t « 


ii 


» Xt 14 


"SLASH nR"« 


." END OF " 


."STATEMEN" 


."T EXPECT" 


."ED 


if f if 


•f 


» XI 15 


"FORMAT, " 


."ARRAY OR" 


»" NAMELIS" 


>"T EXPECT"; 


."ED 


"," 


ii 


i 2116 


"END OF S" 


."TATEMENT" 


»" EXPECTE" 


."D " 


. " 


if $ ii 


if 


» 2117 


"10 STATE". 


."MENT WIT". 


. "H NAMELI" 


>"ST CANNO". 


."T HAVE 


I","0 LIST 


". 


» XI 18 


"COMMA OR" 


." END OF " 


."STATEMEN" 


."T EXPECT" 


."ED 


if f if 


if 


• 2119 


"STRING T", 


,"00 LONG "i 


, ii ii 


> " " , 


. " 


ii , ii 


n , 


i 2120 


"MISSING " 


."QUOTE AT" 


. " END OF " 


."STRING ", 


. " 


ii f n 


ii 


» 2121 


"ILLEGAL ". 


."ARRAY BO". 


."UNO ", 


,« fi ( 


•f 


ii t ii 


if , 


. 2122 


"TOO MANY". 


." HANGING'S 


." BRANCHE". 


."S ", 


ii 


"," 


" . 


. 2123 


"TOO MANY") 


." COMMON "< 


i"OR FQUlV" 


•"ALENCE E"/ 


."LFMENTS 


f» f if 


ff 


• 2124 


"ASTERISK". 


" EXPECTE"* 


,"D ". 


i " " . 


>" 


n fi 


if . 


. 2125 


"COMMA OR"i 


" SLASH E"> 


"XPECTED "» 


" " j 


ii 


ii « 


" i 


. 2126 


"DATA SfT". 
OJ 


" TOO LaR"i 


"GE "i 


" "i 


ii 


"," 


ii 


2127 



", 2128 

"» 2129 

"» 2130 

"• 2131 

"» 2132 



00535000 
00536000 
00537000 
00538000 
00539000 

00540000 
00541000 
00542000 
00543000 
13 IS 97 LONG, 

00544000 T 

00545000 T 
START OF SEGMENT 

00546000 T 

00547000 T 

00548000 T 

00549000 T 

00550000 T 

00551000 T 

00552000 T 

00553000 T 

00554000 T 

00555000 T 

00556000 T 

00557000 T 

00558000 T 

00559000 T 

00560000 T 
00561000 T 



14 IS 97 LONG, 



00562000 
00563000 

START OF SEGMENT 
00564000 
00565000 
00566000 
00567000 
00568000 
00569000 
00570000 
00571000 
00572000 
00573000 
00574000 
00575000 
00576000 
00577000 
00578000 
00579000 
15 IS 97 LONG, 
00580000 
00581000 

START OF SEGMENT 
00582000 
00583000 
00584000 
00585000 



T 0046 

T 0046 

T 0046 

T 0046 

T 0046 

T 0046 
T 0046 
T 0046 
T 0046 
NEXT SEG 

0047 

0047 

* * * * * * * * sjt * 

0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 

0049 
0049 
NEXT SEG 
0049 
0050 



T 

T 

********** 



T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

T 0051 

NEXT SEG 

T 0052 

T 0052 

********** 

T 0054 

T 0054 

T 0054 

T 0054 



14 



15 



16 



c 



c 



c 



c 

c 

4 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



r \ 



\J 



o 



o 

o 



o 



o 



v_> 



w 



o 



u 



u 



o 



v-> 



o 



"UnSP 

"DEC I 

"ILLE 

"UNDE 

"MULT 

"TOO 

"STMT 

"ILLE 

"UNRE 

"RETU 

"FORM 

OJ 



ECIF" 
MAI. " 
GAl, " 
FINE" 
IPLY" 
MANY" 

FUN" 
GAL " 
CORN" 

RN, " 
AT N" 



"!EO 
"FIEL 
"LABE 
"D NA 
" OEF 
" NES 

"CTIO 

"USE 

"IZED 

"STOP 

"UMBE 



DEC I" 
D IL" 
L " 
MELI" 
INED" 
TED " 
N ID" 
OF S" 
CON" 
OR " 
R US" 



"MAL 

"LEGA 
it 

"ST 

" ACT 
"DO S 

" AND 

"TATE 
"STRU 
"CALL 
"ED P 



FIEL" 

L FO" 

it 

ION " 

TATE" 

EXP" 
MENT" 
CT " 

EX I" 
REVI" 



"D " 

"R THIS S" 
it ii 

n n 

"LABELS " 

"MENTS " 

"RESSION " 

" FUNCTIO" 
i» it 

"T REQUIR" 
"OUSLY AS" 



» ii 

"PECIFIER" 
•t ii 

ii it 



"DISAGREE" 

"N " 
» ii 

"ED IN SU" 
" LABEL " 



" IN TYPE« 
ii ti 

« ii 

"BPROGRAM" 



FTLL MeSSAGE[9**] WITH 



"LABEL l)S","ED PREVI","OUSLY AS"," FORMAT ", "NUMBER "»" 



"NON-STAN" 
"DOUBLE 0" 

"FORMAL P" 
"TOO MANY" 
"A $FREFF" 
"A HOL/ST" 
"THIS CnN" 
"ILLEGAL " 
"RETURN I" 
"NON-POSI" 
"NON-IDFN" 
"HYPHEN E" 
"SEQUENCE" 
"TOO MANY" 
"ASTERISK" 
0? 



"DARD RET" 
"R COMPLE" 
"ARAMETER" 
" LOCAL V" 
"ORM SOUR" 
"RING UND" 
"STRUCT I" 
"FILE CAR" 
"N MAIN P" 
"TIVE SUB" 
"TIFIER U" 
"XPECTED " 
" NUMBER " 
" RECURSI" 
" NOT ALL" 



"URN 

"X RE 

" ILL 

"ARIA 

"CE L 

"ER S 

"S IL 

"D PA 

"ROGR 

"SCRI 

"SED 
n 

"EXPE 
"VE C 
"OWED 



REQU»t 
QUIR" 

F.GAL" 
BLES" 
INE " 
FREE" 
LEGA" 
RAME" 
AM N" 
PTS " 

FOR » 
i» 

cteD" 

ALLS" 
ID " 



"IRES LAB" 
"ES EVEN " 
" IN DATA" 
" IN SOUR" 
"MUST HAV" 

"Form mus" 

"L IN TSS" 

"TER VALU" 

"OT ALLOW" 

"ARE ILLE" 

"NAME OF " 
ii it 

« ii 

" ON LI BR" 
"READ STA" 



"EL PARAM"#"ETERS " 

"OFFSET "," " 

" STATEME"#"NT " 

"CE PROGR","AM " 

"E < 67 C"f"OLS " 

"T BE ON ","0NE LINE" 

" FORTRAN"*" " 

If £ If t II It 

"ED "»" 

"GAL "," " 

"LIBRARY ", "ROUTINE " 



ii, « 



"ARY ROUT","INE 
"TEMENT "," 



FILL MeSSaGE[10»*] WjTh 
"ASTERISK"," ONLY aL","LOWfD ?N", 



FREE FI","ELD OUTP","UT 



"TOO MANY" 
"HOL OR Q" 
"DECIMAL " 
"PLUS NnT" 
"K NOT AL" 
"$ NOT AL" 
"INTRNScS" 

"Data stm" 
"Variable" 

"CURRENT " 
"SUBPROGR" 
"REPEAT, " 

"Repeat p" 

"IN SUBpR" 
"SYNTATjC" 
OJ 



" *"ED Li" 

"UOTED ST" 

"FIELD GR" 
" ALLOWED" 

"LOWED IN" 

"LOWED IN" 

"-NAMD FU" 

"T Common" 

" CANNOT ,f 
"SUBPROGR" 
"AM» EXTE" 
"WIDTH, a" 
"ART MUST" 
"GM:VARBL" 
"AL TOKEN" 



ST e 

RING 
EATE 

IN 

THI 

THI 
NCT 

ELE 
BE A 
AM I 
RNAL 
ND D 

BE 

IS 

CON 



LEMF" 
> 7 tt 

R TH« 

THIS" 

S FO" 

S FO" 

MUST" 

M MU" 

FOR" 

D EX" 

* OR" 
EClM" 

EMPT" 
USED" 
TAIN" 



"NTS 
" CHA 
"AN F 
" FOR 
"RMAT 
"RMAT 
" HAV 
"ST B 
"MaL 
"PECT 
" ARR 
"AL P 
"Y OR 

" PR I 
"S TO 



IN 0" 

RACT" 

IELD" 

MAT " 

PHR" 

PHR" 

PRE" 

E IN" 

PARA" 

ED " 

AY I" 

ARTS" 

> 0" 

OR T" 

MA" 



"PUT 

"ERS 

" WID 

"PHRA 

"ASE 

"ASE 

"V EX 

" BLK 

"METE 
ti 

"D EX 

" MUS 
" AND 

"0 us 

"NY C 



it 

IN E" 
TH-5" 

SE " 
it 

ii 

TRNL" 
DAT" 

R OR" 
t» 

PECT" 

T BE" 

< 4" 

E IN" 
HARA" 



« n 

!*XPReSSN " 



" REFERNC" 
"A SUBPRG" 



IN 



CMMN" 
it ti 

"ED " 
" < 4091 " 
"091 " 
" DATSTMT" 
"CTERS, " 



FILL MESSAGE[11»*3 WjTh 
"INTEGFR "."VALUE OF"," 8 eXPeC"»"TfD 

"INTEGER ", "VALUE OF"," 4 fXPfC"»"TfD 



ii t if 



"," 



it,ii 



2133 
2134 
2135 
2136 

XI 37 

2138 
2139 
2140 
2141 
2142 
2113 



"♦ 35144 



2145 
2146 
2147 
2148 
2149 
2150 
%15i 
2152 
2153 
2154 

2155 
2156 
2157 
^158 
2159 



"» 2160 



2161 

2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 



2176 
2177 



00586000 
00587000 
00568000 
00589000 
00590000 
00591000 
00592000 
00593000 
00593001 
00593002 
00593003 
00594000 

16 IS 97 LONG 

00595000 
00595001 

start of segment 

00595002 
00595003 
00595004 
00596000 
00596001 
00596002 
00596003 
00596004 
00596005 
00596006 

00596007 
00596008 
00596009 
00596010 
00596011 
00596500 

17 IS 97 LONG 

00596501 
00596510 

start of segment 

00596511 
00596512 
00596513 
00596514 
00596515 
( 00596516 
00596517 
00596518 
00596519 
00596520 
00596521 
00596522 
00596523 
00596524 
00596525 
00596526 
IB IS 97 LONG 
00596527 
00596528 

START OF SEGMENT 
00596529 



0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
NEXT SEG 
0054 
0055 



********** 



0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 
0056 

0056 
0056 
0056 
0056 
0056 
0056 
NEXT SEG 
0057 
0057 



********** 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

T 0059 

, NEXT SEG 

T 0059 

T 0060 
********** 

T 0061 



17 



7 

18 



19 



c 



c 



's_ 



c 

l' — ' 

c 
c 
c 
c 
c 
c 



c 
c 
c 
c 
c 

c 



"INTEGER ". "VALUE OF"*" 4 OR 8 "•"EXPECTED"." "»" "• *178 . _„_„_ , ,._. 

O "AN ALPwA","BETTC LE"»"TTER f A."."B,C, ...,", "Z) IS RE"»"9UlRED "» 2179 00596531 T 0061 ^ 

"Second r»,»ange let»,»ter must«,» be grea","Ter than"." first «», %i80 

"IMPLICIT"*" MUST BE"." FIRST S» , "TaTEMENT" » " IN PROG", "RAM UNIT". *l81 
O "REAL/lMT"."EGER/LOG"»"lCAt/C0M»."PLEX/D0U","BLEPRECI'S"SlON REQ"# 35182 

"ILLEGAL "»"USE OF A"."STERlSK "."FOR RUn-"."TImE EDI"."TInG ".SS111- 
"NO PR0GR"."AM UNIT "."FOR THIS"." END STA"."TEMENT "»" ".%H2- 

O o; 



END FILL, STATEMENTS; 

o 



PRT(447) * FLOG 



PROCEDURE FLOGCN); VALUE N; INTEGER Nl 



o 



o 



c 



c 



c 



c 



END J 
O IF DClNpUT THEN 

BEGIN 

DCPLACFCERRORBUFF#N»XTA.LaSTSEQ,MESSAGE[N DIV 16,6x(N MOD 16)3, 
O IF TSSMESTOG THEN TSSMeSCTSSMeSACCN-1)DIV 483. 00598050 T 0068 ^ 

ENTlERf(N-l) MOD 48)) ELSE FALSE) J 

WRITECREM0TE.9,ERR0RBUFF[*J) i 

END J 

IF LISTOG OR NOT DClNPUT THEN 

BEGIN ___..,,_, ,__. 

U PLAr,E(FRRORBUFF.N.XTA.MESSAr,E[N D I V 16#6X(N MOD 16) ] .ERRORC T, 00598160 T 0082 ^ 

LASTERR) ? 
WRITAR0W(14.ERR0RBUFF) ; 

w end ; 

MOVESEQfLASTERR.LlNKLlST) ; 
END ERRmESS; 

O 

PROCEDURE FLAGR0UTINECNAME1.NAME2* ENTERING) ; 
PRTC443) = FLAGROUTINE 
O VALUE NAME1.NAME2. ENTERING J 

ALPHA NAME1.NAME2 J 

BOOLEAN ENTERING I .. .,, , .... 

O IF ENTERING THEN WR I TAL I ST( FLAGROUT iNEFORMAT. 7, "ENTER I" . "NG"» NAME 1 . 00600050 T 0164 C 

name2,"+"»fieldcflagRoutinfcounteR*flagkoutinecounter+i)» 
fLagRoutinecounteR.o) else 

O BEGIN 

WRlTALlSTCFLAGR0UTlNEF0RMAT.7."LFAVlN",»r, ". NAMEl . N AME2. "-"» 

FIELDCFLAGROUTINECOUNTER). FLAGROUTINECOUNTER.O) ? .__ . , _,„ 

O FLAGR0UTINEC0UNTER*FLAGR0UTINEC0uNTER-1 ; 00600100 T 0178 <-> 

END J 
XEND OF FLAGROUTINE __,_,<_. , „,_,.. 

U PROCEDURE FLAGfN); VAL,UE Hi INTEGER NJ 00601000 T 0182 <J 

PRT f 4fl4) a FLAG 

IF NOT FRRORTOG OR DEBUGToG ThEn 
O BEGIN 

IE NOT (LISTOG OR SEQERRORS OR DClNPUT) THEN PRINTCARD ; 
ERRMESS(N)i 
O IF EpRORCT > LIMIT THEN GO Tq POSTWrAPUP; 00606500 T 0188 ^ 

PRT(445) a POSTWRAPUP 
PRTC446) = GO To SOLVER 

O end; 



00596530 


T 


0061 


00596531 


T 


0061 


00596532 


T 


0061 


00596533 


T 


0061 


00596534 


T 


0061 


00596535 


C 


0061 


00596536 


C 


0061 


00596599 


T 


0061 


19 IS 55 LONG. 


NEXT SEG 7 


00597000 


T 


0062 


START OF SEGMENT 


********** 20 


20 IS 13 UONC 


i . 


NEXT SEG 7 


00597950 


T 


0062 


00598000 


T 


0062 


00598020 


T 


0063 


00598040 


T 


0063 


00598050 


T 


0068 


00598060 


T 


0071 


00598080 


T 


0075 


00598100 


T 


0079 


00598120 


T 


0079 


00598140 


T 


0081 


00598160 


T 


0082 


00598180 


T 


0086 


00598?00 


T 


0087 


00599000 


T 


0088 


00599500 


T 


0088 


00600000 


T 


0090 


7 IS 92 LONG. 


NEXT SEG 6 


00600010 


T 


0164 


00600020 


T 


0164 


00600030 


T 


0164 


00600040 


T 


0164 


00600050 


T 


0164 


00600060 


T 


0167 


00600065 


T 


0170 


00600070 


T 


0170 


00600080 


T 


0174 


00600090 


T 


0176 


00600100 


T 


0178 


00600H0 


T 


0179 


00600120 


T 


0182 


00601000 


T 


0182 


00602000 


T 


0182 


00603000 


T 


0183 


00604000 


T 


0183 


00606000 


T 


0187 


00606500 


T 


0188 


00607000 


T 


0191 


00608000 


T 


0192 


00609000 


T 


0192 


00610000 


T 


0193 



c 



^ 



c 



c 



,' 1 



c 



IF NOT FRRORTOG OR DEBUGTOG THEN 00609000 T 0192 C 

BEGIN ERRORTOG * TRUE? 

c 

c 



u 



o 



PRTC454) B PUT 



END PUT? 00639000 T 0214 

PROCEDURE GETALL«!#INFA»INFB»INFC)> 00640000 T 0214 



r~- 



IF NOT (LISTOG OR SEQERRORs OR DClNPUT) THEN PRjNTCARD ? 00611000 T 0194 

U eRRMfSSCN)! 00613000 T 0198 

IF ERRORCT > LIMIT THEN GO TO POSTWRAPUP; 00613500 T 0199 

END? 00614000 T 0202 

U PROCEDURE FATALfN); VALUE N? tNTEBER N ? 00615000 T 0202 
PRTf450) = FATAL 

BEGIN 00616000 T 0202 

O FORMAT FATALERRCXXXXXXXX", Xl8, 00617000 T 0?02 

START OF SEGMENT ********** 21 

START OF SEGMENT ********** 22 
O PRTf4Sl) = FATALERR 

"PREVIOUS ERROR IS FATAL - REMAINDER OF SUBPROGRAM IGNORED". 00618000 T 0000 

X,7» "XXXXXXXX")? 00619000 T 0000 

^ 22 IS 19 LONG* NEXT SEG 21 <~ 

ERRORTOG <- FALSE? 00620000 T 0000 

FLAG(N)? 00621000 T 0000 

U WRITALISTCFATALERR. 0.0. 0*0.0. 0#0»0»0> ? 00622000 T 0001 C 

WHILE NEXT * 11 DO % LOOK FOR END STMT 00623000 T 0005 

BEGIN 00624000 T 0006 ~ 

^ WHILE NEXT * SeMI DO SCAN? 00625000 T 0006 <- 

EOSTOG «• TRUE? 00626000 T 0009 

SCAN? 00627000 T 0010 

U END? 00628000 T 0010 L. 

SFGMENTCCADR+4) DIV 4t NSEG. FALSE* FDOCJf 00629000 T 0011 

SCAN? 00630000 T 0014 

'^ END FATaL? 00631000 T 0014 <~ 

21 IS 15 LONG. NEXT SEG 6 

REAL STREAM PROCEDURE D2BCRCL)? BEGfN SI*BCL? DI*-L0c D28? DS*80CT END? 00631100 T 0202 
O PRT(452) b n2B C 

RFAL PROCFDURE GETfP? VALUE I? INTFGER T ? 00632000 T 0203 
PRT(453) s GET 

O BEGtN 00633000 T 0204 C 

GET «. INF0t(I*l)tlR#l.lC3 ? 00634000 T 0?04 

END GET? 00635000 T 0208 

O PROCEDURE pUT(I.V L U)? VA L UE I.VlU? INTEGER I? REA^ V^U ? 00636000 T 0210 C 



BEGIN 00637000 T 0210 

INFOCC I«-X3 v lR*ItlC3 * VLU j 00638000 T 0210 C 



C 



U PRTC4555 - GETALL 

VALUE I? INTEGER I? REAL I NFA. I NFB . I NFC ? 00641000 T 0214 

BEGIN , 00642000 T 0214 

U INFA * INF0[(I*I).IR.I.IC] ? 00643000 T 0214 v_ 

INFB * INFOt(I«-I + l).lR.I,IC]? 00644000 T 0218 

INFC * INFOtC 1*1+1), IR# I.ICJ? 00645000 T 0222 

O END? 00646000 T 0226 C 

PROCEDURE PUTC(ItV)? VALUF I.V? INTEGER I? REAL V ? 00646100 T 0226 
PRTC456) b PUTC 

O TF I*I>SUPFRMAXCOM THEN FATALC124) fLSE COM[ I „ I R» I . I C ] *V ? 00646?00 T 0226 C 

REAL PROCEDURE GETC(I)? VALUF I? INTEGER I ? 00646300 T 0233 
PRTC457) = fiFTc 

O GETC*COM[f I*I).lR»I.IC] I 00646400 T 0233 

PROCEDURE BAPCfV)? VALUE V? REAL V ? 00646500 T 0239 
PRTf460) s RAPC 

O IF NEXTcOM*NEXTCOM+1>SUpERMAXcOM THEN FATALM24) 00646600 T 0239 

ELSE COMtNFXTCOM,IR.NEXTCOM,lCl^V ? 00646700 T 0242 



n 



n 



C 



STREAM PROCEDURE MoVEWC F» T» D» M ) ; VAlUE D»MJ 00647000 T 0246 
O PRTC461) = MOVEW O 

BEGIN SI «■ Fj DI ♦ T; DCDS + 32 WDS; DS «■ 3? WD5)J DS * H WdS) EnDJ 00648000 T 0246 

PROCEDURE CALLEQUIVCI»B»G) j VALUE J,B»GJ INTEGER I; REAL G; BOOLEAN B ; 00649000 T 0250 ^ 
C PRTC462) * CALLEQUIV ^ 

BEGIN RFAL A» T» R* I NFA* 1 NFC } 00650000 T 0250 

START OF SEGMENT ********** 23 



' 1 



O 



O STACKCF+2) = A 

STACKCF+3) = T 



STACK(F+4) a R 
STACKcFfS) s INFA 
STACKrF+6) - iNFC 



O STACKfF+7) a LAST 

STACKfF+10) = D 



RpAL LAST.D? LABEL LJ 00650100 T 0000 



PRTf463) s cORRfCTtNFO 



PROCEDURE C0RRFCTINF0(R,A); VALUE R»A; I NTFGER xI R, A? 00651000 T 0000 



u 



u 



COMMENT THIS PROCFDURE CORRECTS The INFO TABLE FOR COMMON AND 00651010 T 0000 

EQUIVALENCE ELEMENTS. 0O65lO?Q T 0000 

C IF ITEMS ARE IN COMMON THE INFA[EQ] BlT IS SET 00651030 T 0000 O 

THIS BIT IS USED To TELL DATA STATEMENTS THAT THIS IS A 00651040 T 0000 

COMMON ELEMENT AND IF NOT IN B^OCK DATA SUBPROGRAM EMIT 00651050 T 0000 ^ 

O SYNTAX ERROR I68t 00651060 T 0000 ^ 

THE INFACCE3 BIT IS SET TO TELL THAT IF THE CLASS IS VARlD 00651070 T 0000 

EMIT CODE AS IF THIS ITEM WERE ARRAYID BUT DO NOT 00651080 T 0000 

C ALLOW SUBSCRIPTING? 00651090 T 0000 ^ 

BEGIN 00652000 T 0000 

REAL T.I»LAST»L#REL*TW0DBIT»INFA,INFBMNFC? 00653000 T 0000 



START OF SEGMENT ********** 24 ^ 

c 



c 



L, 



STACK(F+2) = T 

STACKfF+3) s I 
O STACKCF+4) - LAST 

STACK(F+5) a L 

STACK(F+6) = REL 
O STACK{F+7) s TW0DB1T 

STACKfF+10) s jNfA 

STACKfF+ll) = INFB 
^ STACKfF+12) s INFC 

real cfbitj 00654000 t oooo 

STACKfF+13) s CFBIT -, 

O DEFINE LB s L0WERB0UND#J 00655000 T 0000 C 

TWODBIT * REALCLENGTH > l0?3)« 00656000 T 0000 

CEBIT * REALCLENGTH > 1)J 00657000 T OOOl 

O T *. r> 00658000 T 0002 ^ 

DO 00659000 T 0003 

BEGIN 00660000 T 0004 

O last*getcct),lastc-i ; 00661000 t 0004 ^ 

for i * t+2 step 1 Until last do 00662000 t 0006 

BEGIN 00663000 T 0010 

U IF GETC(I). CLASS = EnDCOM THEN I *GETC ( I ) , L I NK ; 00664000 T 0010 C 

INFA*GET(L*6ETC(I).LINK)> INFC«-GET(L + 2) J 00665000 T 0014 

IF INFC > AND LB * THEN 00666000 T 0019 

O BEGIN 00667000 T 0020 C 

IF BOOLEANdNFA ,ADJ) THEN 00668000 T 0021 

REL *■ -INFC. BASE ELSE REL * INFC. BASE; 00669000 T 0022 

O PUTCL+2»-ClNFC&CRFL-LB)fT0BASE]))} 00670000 T 0025 

FNDJ 00671000 T 0028 



c 



(' 



w 



.J 
O 

o 
o 
o 

G 



PUT(L»lNFA&TWOOBIT[TOADJ3&CEBlTCTOCE34AtTOEQ])l 
END? 
END UNTTL T*-GETC(T),ADDR = R ? 

FNO correctinfo? 



u 
O 
O 



V 



o 
o 
o 
o 



o 



o 



LABE 
TF DFBU 
COMMENT 



T * 

SWAR 

SSNM 

SSNM 

SSNMr 

SSNMr 

SSNMr. 
SEEN 
DO I 

IF G 
LOCA 
LSTA 
USTJ 
NXi* 

LENG 
IF S 
SEEN 
IF A 
BEGI 
IF S 
I 
B 



E 
C 
G 
END? 
COMM 
IF T 
IF T 



L X! 
rTOG 

th 

u 

ROUP 

OWER 

BE 
FGIN 

BE 

EN 
GR 

ND? 

F T 

ND U 

F GR 
IF 
BF 

r; 

YCT 

191 + 
12]«- 

1 5J* 

?8]* 

adou 

F GE 
ELSE 
FTC( 

i.s*s 

«-SSN 
*SSN 
SSNM 

th * 

FENA 
ADOU 

B 

N CO 
WARY 
F LF 
FGIN 
A 

PU 
ND? 
ORRF 
To 



T? 

then flagroutinec m _calle"»"GUiv »,true ) 

IS PROCEDURE MAr 
IS EQUIVALENCE o 



24 IS 



ES ThE DETERMINATION IF THIS GROUP 
R COMMON IF BOTH TREATED AS COMMON? 



0) 



PRT «• LENGTH * 
BOUND * 32000? 

GIN IF GETC(T),CI 

IF GROUPPRT * 
GIN XTA*G » 

FLAGC2); 
D? 
0UPPRT*GETCA*GETC<T + 1>>.ADDR ? 



:E«t THEN 

then 



> R THEN R * T? 

NTIL T*GETCCT),ADDR=I ? 

oupprt = o then 
b then begin bu 
gin bumpl0cals; 



mpprt?groupprt*prts end elsf sown 
gr0upprt*l0cals + 1536 end? 



«- o; 

LOCAL 

LSTS 

SAVES 

FXl 

NXl 

B*FAL 

TC(T + 

T*GE 
T) > 

SNMC6 
Mt 103 

MH43 
[18] 

LENG 
DOUB 
B*FAL 

THEN 
MMENT 
CT > 
NGTH 



UBS! 
J 

? 

SEi% 
1) * 
TCCT) 
THE 



SSNM 
SSNMf 
SSNMr 
SSNMr 



[7]«-PARMs ? 

10]*LSTA ? 

13]*NAMEtND ? 

16]*FX2 ? 



SSNMf8]*PRTS ; 

SSNMrllJ*TV ? 

SSNMrlA]«-LSTi ; 

SSNMfl7]*FX3 ? 



P 
TV 

FX 



3? 

; 

? 
; 

TH - 
THEN 

se? 



THEN 
,ADDR 
N EQUr 

ARMS*S 
*-SSNM[ 

1*SSNM 

LOWERB 
LEN 



this is an 
1 and lengt 

> 1 THEN 



* ENTERf-0 & ARR 

EQVTD * EQVlD+1 

T(A + 2» & LENf,T 

CTJNF0CR,0); 

x i t a 



begin equiv(T); t-r; end 

UNTIL T = R; 

V(T)J 

SNMC73? PRTS*SSNMCB3? LSTS*SSNM[ 93 ; 

1111 SAVESUBS«-SSNMC123; NAMEIND*SSNMtl33 ? 

C153} FX2*SSNMfl63 J FX3*SSNM[ 17 3 J 

OUNDj 

GTH-LENGTH+LENGTHt U7;1J?S EVEN UP LENGTH 



EQUiVALfNCE group; 
h b i then length «• 2; 



AYfDrTOCLASSJ & GROUPPRTt TOADDR 3 » 

>? 

HCTOSIZE])? 



FNT THIS IS A COMMON 
* ClNFC * GET(A+2)) 
< 1023 AND LENGTH > 



block? 

,Si2e * THEN 
1023 THEN 



006 
006 
006 
006 
A 
006 

006 
006 

006 
006 

006 
006 

006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 

006 
006 
006 
006 
006 
006 
006 

006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
007 
007 



72000 T 
73000 T 
74000 T 
75000 T 
L0NG» 



76000 
76010 
76100 
76110 
77000 

78000 
79000 

80000 
81000 
82000 
83000 
84000 
85000 
86000 
87000 
88000 
89000 
89100 
90000 
91000 
91500 
91510 
91520 
91530 
91540 
91550 
91800 
91900 
91950 
92000 
92010 
92020 
92030 
92040 
93000 
93500 
93600 
94000 
94100 
94150 
94200 
94300 
95000 
96000 
96100 
96?00 
97100 
97200 
97300 
97400 
00000 
01000 



0028 
0032 
0033 
0035 

NEXT SEG 
0000 

0000 
0002 
0002 
0002 

0002 
0004 

0005 
0007 
0009 
0010 
0011 
0011 
0014 
0014 
0016 
0019 
0019 
0025 
0034 
0034 
0035 
0039 
0043 
0046 

0050 
0051 
0053 
0057 
0063 
0065 
0069 
0073 
0077 
0078 
0079 
0082 
0084 
0085 
0085 
0088 
0089 
0090 
0092 
0094 
0096 
0096 
0097 
0098 
0098 
0098 
0101 



23 



C 



C 



c 
c 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



v_ 



BFGIN XTA *- GETCA + Dl Fi,AGC47) END; 

IF T < LENGTH THEN PUTCA+2. I NFCRLENGTHC TOSI ZE ] ) ELSE LENGTH «• T 

IF LFNGTH = 1 THEN LENGTH * 21 

CORRFCTlNFOCR»l)J 

X!T$ 

IF LfNGTH > 32767 THEN BEGIN XTA * GET(A+1); FUG(IOO) END; 
IF DEBUftTOG THEN FLAGROUT I NEC •» CALLF"»"GUlV ".FALSE) I 
ENO CALLEQUIV; 



o 

o 



PRT(464) 



STRFAM 
s STOSFQ 

BEGIN 



PROCEDURE ST0SEQ(XR,SEQ»ID)J VALUE TD 



23 IS 



00702000 T 
00702100 T 
00703000 T 
00704000 T 
00705000 T 
00705100 T 
00705110 T 
00706000 T 
127 LONG. 
00706010 T 



DT*DI»2J END); 



o 
o 
o 
o 
o 
o 



LOCAL Tl LABEL L1.L2 i 

Si «- loc id; di*xr; ds*7Ltt»»o«; ds*chr; si*si + u 

IF SC > "0" THEN 

OfGIN S I *-S 1 + 4 5 DI*DI»2; 

5f!F sc= - » ThEN S| * Sl-l 
else BEGIN DS*ChR* susi-2; 
End flse 
bfgin di*di-6; 

6cif sc=" » then begin tally*tally+ 1 ; 
else ds*chr); 

T-TALLYJ 

EmD; 

D|*Xr; di*di+8; si*seq; 

8C IF SC*" » THEN S I -S I +1 ELSE JUMP OUT TO LI); 
Go L2> LI I 5I*SEQj DS«-WDSj L2» 

di*di+4; si*loc T; si*si+7; ds*chr; 
end; 

procedure fnterxcident.adinfo); value ident. adinf0; 
prtc465) = fnterx 

REAL idfNt.adinfo; 

BEGIN RfAL R»S ; 



susi + i end 



DS*8LIT w BLANKSEQ" 



STACKCF4-2) = R 
STACKfF+3) = S 



00706015 T 
00706020 T 
00706025 T 
00706030 T 

00706035 T 
00706040 T 

00706045 T 
00706050 T 

00706055 T 
00706060 T 
00706065 T 
00706070 T 
00706075 T 
00706080 T 

00706085 T 

00706090 T 

00706095 T 

00706120 T 

00706150 T 
00706200 T 

start of segment 



0103 
0106 
0111 
0113 
0114 
0115 
0118 
0120 
NEXT SEG 
0250 

0250 
0250 
0252 
0252 

0253 
0254 
0256 
0256 
0256 
0258 
0259 
0259 
0259 
0260 
0263 
0264 
0266 
0266 

0266 
0266 

********** 



25 



if adinfo,class>labelid then 

BFGIN 

XRm*ADlNF0; STOSEQCXR.LfNKLlST. IDENT) ; 
IF ADlNFO'.CLASSsFUNjD THEN XR[ 2] . £ 26 M 1 *S«-1 ; 
WRITE(XREFG.3»XR[*]); XGLOBALS*TRUE ; 

END ? 

IF R*XRI MOD XRBUFFDIV3=0 THEN 

IF XrI*o THEN WRITECXREFF.XRBUFF»XrrY£*J) ; 
XRRYtCR«-R + R + R) + 2]*ADlNFo&SC26l47sn ; 
STOSEQ(XRRYCR).LINKLIST.IDENT) ; 

IF XrI*XRI+1=i THEN BEGIN XRC3l*IDENT; XR [ 4] *XRRY[ 2 J END I 
END ENTERXj 



PRTC466) = TRANSFER 



STRFAM PROCEDURE TRANSFER (W2» B. K ) ; VALUE K ; 



U 



o 



PRTC467) 9 cMPA 



PRT(470) = cMP 



BEGIN DI*W2; SI*Bj Sl*Sl+8; KCDS-WDS; SI*SI+16) END ; 
BOOLEAN STREAM PROCEDURE CMPA(F.S); 

BFGIN ST*- FJ DI *■ S? IF 8 SC < DC ThEN TALLY * II CMPA*TALLYI ENDI 
BOOLEAN PROCEDURE CMP(A.B); ARRAY A»B[0]| 

BEGIN 



00706220 T 0000 

00706240 T 0001 

00706260 T OOOl 

00706280 T 0005 

00706300 T 0009 

00706320 T 0015 

00706340 T 0015 

00706350 T 0017 

00706360 T 0023 

00706380 T 0027 

00706450 T 0029 

00706500 T 0034 

25 IS 37 LONG. NEXT SEG 

00706525 T 0266 

00706530 T 0266 

00706560 T 0269 

00706570 T 0269 

00706600 T 0272 

00706610 T 0272 



^ 



i 



c 
c 



c 
c 
c 



c 
c 
o 
c 
o 
o 
o 
o 
o 

c 



vj 



c 



u 



O 



O 



o' 



■"J 



PRTC472) s INP 



CMP - TF ArO] < B[0] THEN TRUf FLSe IF A[0] = RrO] THEN 00706640 T 0272 

IF Ar?3,f 26?43 < B[2],C26l4] THEN TRUf ELSe 00706650 T 0?76 C 

IF Ar2],r26»4] = BC2].C26j4] THEN CMPAC AT 1] .Btl ] ) ELSE FALSE 00706660 T 0280 

_,. n , ELSp FALSE* 00706670 T 0286 _ 

F ND ' 00706680 T 0987 C 

PROCEDURE H V(V)I ARRAY V[0]J 00706700 T 0289 
PRT(471) = HV 

° FILL V[*] WITH 0CT 7 77777777777777»0CT777777777777777»0CT777777777777777; 00 7 06720 T 0289 C 

„ ,, START OF SEGMENT ********** 26 

BOOLEAN PROCEDURE INP(XR)? ARRAY XRtOM 00706730 T 0291 

26 IS 3 LONG. NEXT SEG 6 C 
BEGIN LABEL EOF,' REAL R i 00706733 T 0292 

STACK(F+3) = R START OF SEGMENT ********** 27 C 

IF EODS THEN READ(XREFG» 3,XRC* 3 ) t EOF] ELSE 00706735 T 0000 

<J PRT(473) = pOF " ' U 

IF IT «- IT+1 > XRl THEN 00706750 T 0006 

lc BEnlN E0F» INP«-TRUE> tT*XRt*0; END 00706760 T 0008 

^ ELSE BEGIN 00706770 T 00u q 

IF R*{TT-15 MOD XRBUFFDIV3=0 THEN READC XREFF, XRBUFF, XRRYE *] ) > 00706780 T 0011 

XR r0l*XRRYrR«-R + R+R]J XR[?UXRRY[R + 2]I TRANSFER ( XR tl 3 » XRRY [R] » 1 ) t 00706800 T 0018 

° rwn nf° 'mp . 00706810 T 0025 C 

F N » OF iNP ; 00706820 T 0025 

27 IS 30 LONG* NEXT SEG 6 
PROCEDURE VARjABLED!MS<A»C)l VALUE A. C * REAL A. CJ 00707000 T 0292 C 

PRTU74) s VARIABLEDIMS £ C 

<—■ BEGIN 0070AOOO T CioQo 

O REAL NSUBS, BDLINK* B0U N D. 1} 00709000 T 0292 C 

STACK(F +2 ) 3 NSUBS START 0F SEGMEnT ********** 28 

O STACK(F+3) 3 BDLINK r> 

STACKCF+4) = BOUND ^ 
STACKCF+5) s I 

"— LABEl, XITj 00710000 T OOOO O 

IF DEBUfiTOG THEN FLAGROUT I NEC «V A R I AB». "LED I MS", TRUE ) I 00710010 T 0000 

IF NSUBS * C.NEXTRA s 1 AND A. SUBCLASS < DOUBTYPE THEN GO TO XI T? 00711000 T 0002 

BDLINK * C.AOINFOI 00712000 T 0006 O 

FOR T * 1 STEP 1 UNTIL NSU B S DO 00713000 T 0007 

BFGIN 00714000 T 0010 

^ IF BOUND ♦• EXTRAINFOTBDLINK.IR, BDLINK. lc] < THEN 00715000 T 0010 O 

EMITOPDCLTT(BOUND) ELSE EM? TNUMC BOUND ) ; 00716000 T 0013 

O RnLlNK * BDLlNK-l; 00717000 T 0015 

^ IF I > 1 THEN EMITOCMUDJ 00718000 T 0017 O 

END' 00719000 T 0019 

IF A. SUBCLASS > DOUBTYPE ThFN EMtTPAIRC2, MUDI 00720000 T 0021 

^ FMjTPAlRC C.SfZE* STD)J 00721000 T 0024 O 

XfTs .. 00722000 T 0025 

tf deburTOg then flagRoutine(»vaRiab w » m ledtms«, false) ; 00722010 t 0026 

END VARtABLEDlMSl 00723000 T 0028 O 

n , , procedure emitD(r,op)? value r»op* real r»qp; forward; " oo7?3ioo't 0999 

^ PRT(475) 3 EMITD f "' U/ ^ Q 

STREAM PROCEDURE SETPNT(Wj,W2,p N T»CL»SUBCfSTAR»P0S»F#S»Q) \ 00723140 T 099? 

PRT(476) 3 SETPNT '^i*u v*v<l 

^ VALUE C|..SUBC.STAR»POS#F»S,Q J 00793150 T 0999 O 

BEGIN FfSl*Wl» SI-SI+2S Dl-PNT ; 00723160 T 0292 



o 



o 
o 
o 
o 

o 



o 

o 

O 

o 
o 

o 

Li 

o 



o 



o 



PRTf477) c PT 
STACKfF+2) s l 



IF SC>"0" THEN 

BEGIN DS-5CHR; DS-LIT" »; Dl*DI-6j DS-5FILL ; 

END ELSE BEGIN DS*6L!T" "i Dl*PNT; DS*Q CHR END) ; 
S(DI*PNT| Dl«-DI+6; DS+LIT" "J 
St * L.OC SUBCI SI * SI+2J DS * 6 CHRJ DS * L I T " »i 

Sl*LOC CLl Sl-Sl+2; DS*6CHRJ DS*LjT» »)* 
DI*PNT1 DI*DI+21) 

P0S(DI*D!+11)» 
St «• UOC STAR? SI «• SI+7; DS «- CHR? 
St * H2I DS*8CHR * 

St «■ loc star; si * si + 7J ds «. chR; 
FNn of setpnt j 

PROCEDURF PTCEOf»RfC>*VALUf EOF? BOOLEAN EOF* ARRAY RECCO]; 
BEGIN i,ABFL L6J REAL L i 

IF EoF THEN WRITECL I NE» 1 5* PRI NTBUFF [ * ] ) 
ELSE 
IF BOOl.EANtL*REAU(RECCO]*RECC038RECt2] U S 26 I 1 3=XTA ) ) THEN 
BEGIN 
IF IT*IT+1=9 THEN 

BEGIN LASTLINE#-FALSE) WRITE t L I NE» 15»PR I NTBUFFC * 3 ) ; 
L6} BLANKITCPRINTBUFF.15* lT*0) ; 

END ) 
SETPNT(REC[01»RECtl]fPRlNTBUFFtKLASStRECt23iCLASS3.TYPES[REC[2] 
, SUBCLASS], IF BOOLEAN(REC[23) THEN "*" ELSE " " » I T » L - 1 * 
LASTLINE»6-REC[23,C27533) J 
FND 
ELSE BEGIN 

LASTLINE*TRUe> WR I TEC Rl TE» 1 5, PR I NTBUFFC * 3 > I XTA*RECrO] ; 
GO L6 J 
END > 

fNd of pt t 



0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 



3170 
3180 
3200 
3210 
3230 
3240 
3250 
3255 
3265 
3280 
3295 
3325 
3450 



0293 
0294 
0296 
0298 
0300 
0301 
0303 
0303 
0305 
0305 
0306 
0307 
0307 



^> 



c 



START 



00723470 
OF SEGMENT 



T 0307 

********** 



29 



PROCEDURE CHFCKfNFOJ 
PRTC500) p CHECKtNfO 

BEGIN R F AL T» T, AJ 



29 IS 



0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
0072 
40 
0072 



3520 
3595 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3800 

LONG. 
4000 T 



0000 
0003 
0005 
0009 
0009 
0011 
0018 
0020 
0020 
0023 
0027 
0029 
0029 
0030 
0036 
0037 
0037 
NEXT SEG 
0307 



c 



c 



c 



u 



o 



\s 



STACKfF+2) a I 

STACKCF+3) = T 

STACKfF+4) = A 

STACKfF+5) - LASTF 



00725000 
START OF SEGMENT 



T 0307 

********** 



30 



STACKfF+6) 
STACKfF+7) 



a INFB 
3 INFC 



STACK(F+10) = N 
PRTC501) s INFOF 



REAL LASTFt 
REAL INFB.INFC; 

LABEL NXTJ ALPHA NJ 
FORMAT TNFOFC 3(A6# X2), 



" ADDRESS - », A2, M\* 

•V LENGTH ? "» 15, 

% OFFSET = "p 15), 
INFOTC / "LOCAL I DENT I F T ERS 1 » ) » 
LABFCA6.X10, "LABEL RfL-ADR - ">I6."» SEGMNT * "il5)> 



00725100 T 0000 
00726000 T 0000 

00727000 T 0000 

00728000 T 0000 
START OF SEGMENT ********** 
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00729000 


T 


0000 


00730000 


T 


0000 


00731000 


T 


0000 


00732000 


T 


0000 


00733000 


T 


0000 



c 
c 

c 
c 
c 
c 
c 
c 
c 



u 



o 

' — . 

O 

o 
o 

Qi 

c 
o 






n 



^j 



u 



u 



u 



O 



O 

o 
u 



IF PRTOfi THEN 

WR I T AL I ST (INFOT, 0,0, 0.0,0, 0.0.0,0) J 

IF J * SEARCHCERR "> * THEN 

IF GET(J), CLASS = UNKNOWN THEN PUTCi+j, » 
IF I * SEARCHCEND ") * THEN 

IF GFT(I). CLASS = UNKNOWN THEN pUT(I+t» » 
IF NOT OCINPUT THEN IF I *SeArCH( "Z I p '• ) * 

IF GETCI),CLASS = UNKNOWN THEN pUTC l+l »".,,. , 
FOR I * STEP 1 UNTIL NEXtCqM Do 
IF GfTC(1)»CLASS=HEADER THEN 



• • t ♦ • » 



"); 



THEN 
* j » 



IF GFTCCDfCEM THEN 

PUT(fT«-GETCU+l),LINK + 2)»GET(T HOC TOAD INFO]) ; 

T * ?l WHILE T < NEXTINFO DO 
BEGIN 

GFTALL(T»Af INFB»INFC)I 

IF I *■ A, CLASS > FILFID 

IF N * INFB = "... ,,, 

XTA •• n; 

IF T p LABEUTD then 

BfGJN 

A > THEN FL.AGC19) ELSf 

PRTOG THEN WRl TALI ST (LABF . 3» N, A . ADDR 



Then go to nxtj 

, n THEN GO TO NXTJ 



IF 
IF 
0) 
GO 

EniD> 
IF 



D!V 4. A, SEGNO, 0,0, 0,0. 



TO NXTJ 



FLAGC6?)J GO TO NXT ENDJ 
GO TO NXT ENDJ 
IF A>0 THEN T*GETSPACE(T) END 



I b FORMATID THEN 

IF A > THEN BEGIN 
IF I " NAMELIST THEN 
IF A > THEN BEGIN FLAGCl36)j 
I F i s ARRAYID THEN 

IF BOOLEANCA.CE) THEN BEGIN 

ELSE IF A<0 THEN 

!F BOOLEAN(A, FORMAL) THEN 

BEGIN IF SPLJNK > 1 AND ELX > 1 THEN 

BEGIN % this is a formal parameter for a subroutine OR A 

% FUNCTION THAT HAS ONE OR MORE ENTRY STATEMENT. THIS 
% PARAMETER WiLL BE INITIALIZED TO AN ARRAY DESCRIPTOR 

% to o so t h at if the parameters are not set up by the 

% CALL ANY REFERENCE TO THEM WILL CAUSE AN INVALID 
% ADDRESS 
IF LASTF s THFN % FIRST TjMf ThRU 
BEGIN LASTF * A^ADDRJ 

EMlTDESCLlTf2)J EMjTLtDJ 

EMITD(50»0IA)J FMlTD(iO,DlB)J EM I TD( 1 0#TRB) J 

end else emitpaiR(lastf,lodjj 

EmITpAIR(A»ADDR.SnD) J 
END 
END 

ELSE ARRAYDEC(T)J 
IF PRTOG THEN 

WRITALlSTf JNFOF»Zf INFB. 

IF BOOLEAN(A.TYPEFIXED) 

KLASStA.CLASS]. 

IF A, ADDR < 1024 AND A 



THEN TYPEStA. SUBCLASS] ELSE " 
: THEN «R+" ELSE " "« 



31 IS 37 LONG. 

00734000 T 

00735000 T 

00736000 T 

00737000 T 

00738000 T 

00739000 T 

00739100 T 

00739200 T 

00740000 T 

00741000 T 

00742000 T 

00743000 T 

00744000 T 

00745000 T 

00746000 T 

00747000 T 

00748000 T 

00749000 T 

00750000 T 

00751000 T 

00752000 T 

00753000 T 

00754000 T 

00755000 T 

00755010 T 

00756000 T 

00757000 T 

00758000 T 

00759000 T 

00760000 T 

00761000 T 

00762000 T 

00763000 T 

00764000 T 

00764020 T 

00764040 T 

00764060 T 

00764070 T 

00764080 T 

00764090 T 

00764100 T 

00764110 T 

00764150 T 

00764200 T 

00764220 T 

00764240 T 

00764260 T 

00764280 T 

00764300 T 

00764320 T 

00765000 T 

00766000 T 

00767000 T 

00768000 T 

00769000 T 

00770000 T 



NEXT SEG 
0000 
0000 
0004 

0006 
0010 

0012 
0016 
0020 
0024 

0029 
0030 

0030 
0033 
0040 
0040 
0043 
0043 
0044 
0047 
0048 
0049 
0050 
0050 
0052 
0060 

0061 
0061 
0061 
0062 

0065 
0066 
0069 
0070 

0074 
0075 
0076 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0080 
0082 
0083 
0086 
0088 
0089 
0089 
0089 
0090 
0091 
0093 
0096 
0097 



30 



o 

o 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 



', ) 



u 

o 



u 



v_- 



u 



c 



o 



<^ 



•u 



L) 



o 



•J 



u 
O 

o 



IF A < THEN B2DCA.r26M0]) ELSE "NULL** 

INFC,SIZE» 

INFC.BASE.O) J 

IF BOOLEAN(A.CF) THEN IF A. SUBCLASS > DOUBTYPE THEN 
TF BOOLEAN(INFC.BASE) THEN FLAGC146); 

NXT? 

T «• T + 35 

END) 

fNd chet.kinfo; 
procedure segmfntstartj 

PRTf5025 s SEGMENTSTART 

BEGIN 

NlSEG «• NXAVIL * NXAVIL + 1? 

IF LlSToG THEN WRITAlISTCSeGSTRT, 1#nSEG#0»0#0#0»0»0#0> » 

DEBUgADR«-ADR*-1 J 

IF NOT SEGOVFLAG THEN 
BEGHs 

dataprt*datastrt*-datalink«.dataskp+ 

labelmom * BRANCHX «• FUnVaR * 

dt * splink * nextcom * elx «■ of 
nfxtss * 1022; 
imitialsegno «- nsegj 

FOR 1 * STEP 1 UNTIL LBRANCH DO BRANCHESCI] * I + 1J 
FOR T - STEP 1 UNTIL SHX DO STaCKHEADEU «■ Oj 
NrXTfNFO «- LOCALS * 2J 
FPTOfi * FALSE? RETURNFOuNd * FALSEJ 

end; 

ENdSfGTOC, * FALSE? 

IF Sp-GSW THEN LtNESEG[NOLIN*0»0]„0 & D2BcLASTSEO)[lOl20»28j t 

fnd segmentstartj 

procedure ftxparamsm>> value tj integer i j 

PRT(503) s FfXPARAMS 

BEGIN 

REAL FMINUS. NPARMS, ELINK» I.ABXj 

STACKfF+2) = FMINUS 
STACK(F+3) a NPARMS 
STACK(F+4) 5 ELINK 
STACK(F+5) * LABX 

REAL PLINKX* PLINKJ 
STACK(F+6) = PLINKX 
STACKCF+7) 3 PLINK 

REAL PTYPEX. PTYPEJ 
STACKCF+IO) = PTYPEX 
STACK(F+11) = PTYPE 

REAL CL» INF; 
STACKfF+12) s CL 
STACKCF+13) = INF 

LABEL ARRY. LOAD* INDXJ 

REAL EWORDJ 
STACKfF+14) a EWORD 

IF OEBUfiTOG THEN FLAGROUT I NEC " F I Xp» , "ARMS ".TRUE ) J 

EWORn * ENTRYLINKCI3J 

FLiNk * EWORd.LtNK? 

TF LABX * EWORD^LASS > THFN 
BFGIN 



30 IS 



00771000 T 0101 

00772000 T 0104 

00773000 T 0105 

00773100 T 0106 

00773200 T 0109 

00774000 T 0111 

00775000 T 0112 

00776000 T 0113 

00777000 T 0119 

123 LONG. NEXT SEG 

00778000 T 0307 



u 



c 



00779000 
00780000 
00781000 
00782000 

00783000 
00784000 

00784100 
00785000 
00786000 
00787000 
00788000 
00789000 
00790000 
00791000 
00792000 
00793000 
00794000 
00794400 
00795000 
00796000 



0307 
0307 
0309 
0314 

0316 
0317 

0317 
0317 
0317 
0323 
0324 
0324 
0330 
0334 
0335 
0339 
0339 
0341 
0347 
0347 



c 



o 






u 



00797000 T 0347 
00798000 T 0347 
START OF SEGMENT ********** 
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00799000 


T 


0000 


00800000 


T 


0000 


00801000 


T 


0000 


00802000 
00803000 


T 

T 


0000 
0000 


00803010 
00804000 
00805000 
00806000 
00807000 


T 
T 
T 
T 
T 


0000 
0002 
0003 
0004 
0006 



c 



c 



c 
c 
c 
c 
c 






c 



^ FMITDESCL!T(LA8ELM0M>; nnsnonno T nnn7 J 

emitl(labx); 

~ EMlTLfl)» EMlTLCl); EMlTLCO); „-„.,„„, , „„„„ 

^ EMITOPDCLIT(BLKCNTRLINT)? oom^nnn t nnn U 

EMITLU)* EMITPAIR(FPLUS2»ST0)>« F + 2«-TRUE FOR BLKXIT 

end; „_ __„„ . _ w 

'^ FMINUS * 1920; OOfti/unnn T 0011 vj 

NPARMS * (J*GET(ELINK+?)),NEXTRAj 
IF NPARMS > THEN „,„_ _...,„.,,_ , 

O BEGIN 00817000 T 0017 O 

Pl.INKX * EWORD.ADOR-NPARMS + U 

PTYPEX * J, AD INFO + NPARMs-ll ..„..,,. . 

O FOR J * 1 STFP 1 UNTIL NPaRMS DO 00820000 T 0022 O 

R r C t N 

PLINK * EXTRAlNFOrPLTNKX,lR»PLlNKX.IC]J 
^ PTYPF * EXTRAlNFOcPTYPEX.IRtPTYPEX.ICl.CLASSl 00823000 T 0030 U 

FMINUS * FMINUS+Ij 

IF PLINK a THEN U uo^ JU u V , w UJJ _ 

W BFGlN - - OORP6000 T 0036 U 

FMlTOPncLlTCFMyNUS); 

EMITLCLABX •■ LABX-DJ . .._ 

'^ eMitdescliT(Labelmom); 00829000 t 0039 O 

EMlTO(STD); 
END ELSE „„u.,iwwv , »«-w 

^ BEGIN 00R-*9nnn t on/io O 

IF Cl * (INF * GET(PLINK)), CLASS - UNKNOWN THEN CL * 

XTA 4. GETCPLINK+DS „_,._„„ , „„„, 

O IF PTYPE a THEN EXTRA INFO t PTYPEX f I RtPTYPEX , I C ] , CLASS 00835000 T 0046 O 

* PTYPE «■ CUt 

CASE PTYPE OF »v PJ ,vvu , ,,» Jt 

O BEGIN ; 00838000 T 0053 O 

PRTC504) s *CASE STATEMFNT DESCRIPTOR* 

IF CL t ARRAYID THEN FLAGC79) ELSE 
O ARRYI 00840000 T 0055 O 

BEGIN 

FMINUS * FMlNUS+lJ 
C IF INF < THEN 00843000 T 0057 O 

BEGIN 

EMITPAIRCFMTNUS* L0D)J ..„...._. . 

U EMlTPAlR(T#-iNF.ADDR* STDJJ 00846000 T 0059 O 

emitopdcliT(fMtNusm>; 

EMlTPAlR(T-i, sTd>? 

O • END? 

end; 

if cl * varid then flagc80) else 

O LOAD? 

BEGIN 

IF lNF,SUBCLASS>D0UBTYpE AnD CL=VARID THEN FM I NUS*FM I NUS+1 > 
O IF INF<0 THEN 

BEGIN 

EMITPAIRCFMINUS* lod); „-„_,„,.„,, , .,„,._, 

U EMITPAIR(T«-INF,ADDR»STD); 00856000 T 0074 O 

IF INF,SUBCLASS>DOUBTYpE AND CL-VARID THEN 
^ BEGIN EMlTOPDCLITCFMiNUS-1); __„_ . ..,_ 

O EMlTPAlR(T+l»STD); 00856300 T 0080 O 

end; 





00808000 


T 


0006 




00809000 


T 


0007 




00810000 


T 


0008 




00811000 


T 


0008 




00812000 


T 


0011 


CALL 


00812400 


T 


0011 


X106- 


00813000 


P 


0013 




00814000 


T 


0013 




00815000 


T 


0014 


£106- 


00816000 


P 


0017 




00817000 


T 


0017 




00818000 


T 


0018 




00819000 


T 


0020 




00820000 


T 


0022 




00821000 


T 


0028 




00822000 


T 


0028 




00823000 


T 


0030 




00824000 


T 


0034 




00825000 


T 


0035 


- 


00826000 


T 


0036 




00827000 


T 


0036 




00828000 


T 


0037 




00829000 


T 


0039 




00830000 


T 


0039 




00831000 


T 


0040 




00832000 


T 


0040 


arid; 


00833000 


T 


0041 




00834000 


T 


0045 




00835000 


T 


0046 




00836000 


T 


0050 




00837000 


T 


0052 




00838000 


T 


0053 




00839000 


T 


0053 




00840000 


T 


0055 




00841000 


T 


0056 




00842000 


T 


0056 




00843000 


T 


0057 




00844000 


T 


0058 




00845000 


T 


0058 




00846000 


T 


0059 




00847000 


T 


0061 




00848000 


T 


0062 




00849000 


T 


0064 




00850000 


T 


0064 




00851000 


T 


0064 




00852000 


T 


0066 




00854000 


T 


0068 


S + l > 


00854100 


P 


0068 




00854200 


T 


0072 




00854300 


T 


0072 




00855000 


T 


0073 




00856000 


T 


0074 


X105- 


00856100 


P 


0076 




00856200 


T 


0078 




00856300 


T 


0080 




00856400 


T 


0081 



o 
•^_> 



o 

o 



o 

o 



o 

c 



I I 



o 



o 



*w> 



V_' 



O 



u 



u 1 



o 



D 



o 
o 
o 



\ 



FND J 
FTNDJ 

; ; ; ; 

IF CL = 



FUNID THEN GO TO UOAD ELSE FLAGC81); 



t 

IF CL * FUNID OR CL = SUBRiD OR CL = EXTlO THEN GO TO LOAD 

ELSE FLAG(83)> 
IF CL * SUBRID THEN GO To LOAD ELSE FlAGCB?)} 

i ; 

BEGIN 

IF CL ;= ARRAYID T H EN| 
BEGIN 

EXTRAlNFO[PTYPEX.lR,PTYPEX,ic) f CLASS «• CD 

GO TO arry; 
fnd; 
INDX: 

IF CL * VARID THEN FLAGC80)) 
FMJNUS * FMlNUS+1; 
IF INF < THEN 
BEGIN 

FMlTOPDCLIT(FMfNuS-l)J 
EMlTDESCLIT(FMiNUS); 
EMlTPAlR(INp,AnDR» STD)J 
END? 
FNDJ 

IF CL 9 VARID THEN GO TO LOAD ELSE FLAG(80)* 
GO TO INDX) 
END CASE STATEMENT; 

A * INF, SUBCLASS? 

IF T * EXTRAlNFOCpTYpEX.lR, PTYPEX . IC] .SUBCLASS - OR 
T = INTYPE AND A s REALTYPE THEN 

EXTRAlNFOtPTYPEX.iR.pTYpEX.ICJ. SUBCLASS <- A ELSE 
IF T t A THEN 

BEGIN XTA «• GET(PLlNK + i); FLAGC88) END? 
FND) 

PLINKX «• PLINKX+U 
PTYPEX * PTYPEX-l; 
END* 

PLINKX «• PLINKX-NPARMS) 
FOR J * 1 STfP 1 UNTIL NPARMS DO 
BfGIN 

PLINK * EXTRAlNFOtPLfNKX.lR.PLlNKX.IC]) 
IF PLINK / THEN 

IF (A*GET(PLINK)), CLASS = ARRAYID THEN 
IF T*-GETCPLjNK + 2) < o THEN VaR I ABt-FDlMSC A# T)J 
PLINKX «• PLlNKX + 1) 
ENDJ 

fNdi 

FMlTRfGFT(ELlNK+2).BASE & ( GfTC FL I NK ) , SEGNO ) [ TOSEGNO ] , FALSE)? 
IF DEBUfiTOG THEN FLAGROUT I NEC » FIXP'V'ARMS », FALSE) * 



00856500 T 


0081 


00857000 T 


0081 


00858000 T 


0082 


00859000 T 


0082 


00859100 T 


0084 


00859200 T 


0084 


00859300 T 


0084 


00859400 T 


0084 


00859500 T 


0084 


00860000 T 


0084 


00861000 T 


0084 


00861100 T 


0087 


00862000 T 


0089 


00863000 T 


0092 


00864000 T 


0092 


00865000 T 


0092 


00866000 T 


0092 


00867000 T 


0093 


00868000 T 


0097 


00869000 T 


0098 


00870000 T 


0098 


00871000 T 


0098 


00872000 T 


0100 


00873000 T 


0101 


00874000 T 


0102 


00875000 T 


0102 


00876000 T 


0103 


00877000 T 


0104 


00878000 T 


0106 


00879000 T 


0106 


00880000 T 


0106 


00892000 T 


0109 


00893000 T 


0j09 


START OF SEGMENT ********** 33 


33 IS 17 LONG. 


NEXT SEG 32 


00894000 T 


0110 


00895000 T 


0111 


00896000 T 


0115 


00897000 T 


0117 


00898000 T 


0121 


00899000 T 


0123 


00900000 T 


0126 


00901000 T 


0126 


00902000 T 


0127 


00903000 T 


0128 


00904000 T 


0130 


00905000 T 


0132 


00906000 T 


0133 


00907000 T 


0133 


00908000 T 


0135 


00909000 T 


0136 


00910000 T 


0139 


00911000 T 


0143 


00912000 T 


0144 


00913000 T 


0147 


00914000 T 


0147 


00914010 T 


0151 



L 
C 



O 

o 



c 
c 

C 

c 

c 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
n 



L- 



STACKfF+21) s W2 
STACKfF+22) = W3 



ARRAY W2»W3C0!XR!-1] I 00915180 T 0005 



c 



END FlXpARAMSj 00915000 T 0153 

{J 32 IS 160 LONG, NEXT SEG 

PROCEDURE XREFCORESORT * 00915100 T 034/ 

PRTC505) s XREFCORESORT ^ 

O BEGtN 00915120 T 0347 C 

REAL F»G*H«I«J»K»L»T»TT» I J»M»TN ; 00915140 T 0347 

START OF SEGMENT ********** 34 ^ 

O STACK(F+2) = F L, 
STACKfF+3) = G 

STACK(F+4) * H 
CJ STACKfF+5) = I U 

STACK(F + 6) ss J 

STACKfF+7) s K 
O STACKcF+10) s I 

STACKfFtll) a T 

STACKfF+12) = TT 

U STACKfF+13) = U 

STACKfF+14) = M 

STACKfF+15) s IN 
O SAVr ARRAY AtOJXRi-U» IL.IU[0»8] J 00915160 T 0000 (J 

STACKfF+16) b A 

STACKfF+17) = IL 

U STACK(F+20) 9 IU 



c 



< 



U 



u 



LABFL Li»L2»L3.L4»L5»L6»Lll»L12»L13>Ll/» J 00915200 T 0008 

DEFINE CMPARGT(A) s A.NAME-TN THEN IF (IF G*W3t H«-A • t 2 J 10] 1 . t 26 J 4 3 00915220 T 0008 

O PTT*W3CF*T,t2U0n f t26l4] THEN NOT CMPA(W2CH3» 00915240 T 0008 O 

W2[F]) ELSE G>TT) #» 00915260 T 0008 

CMPARLS(A) = A.NAME-TN THEN IF (IF G*W3CH*T, C2l 1Q]J . C26U3 00915280 T 0008 

O *TT*W3CF*A»t2H0]l,[26l4] THEN NOT CMPA(W2tH3» 00915300 T 0008 C 

W2CF3) ELSE G>TT) #, 00915320 T 0008 

NAME * C 121 363 # J 00915340 T 0008 ^ 

-J J*XRI-1I G*XRl DIV K*XRBUFFD!V3> H*XRBUFF I 00915360 T 0008 O 

FOR L»l STEP 1 UNTIL G DO 00915380 T 0012 

' BFGIN 00915400 T 0014 

^ LIU READ(XREFF»H#XRRY[*]); TRaNSFER(W2CT«-CL-1)x50]»XRRY»K) ; 00915420 T 0014 C 

IJ*T+K«U TN*-3 ; 00915440 T 0021 

FOR F*T STEP 1 UNTIL IJ DO 00915460 T 0024 

^ BEGIN ACF3*XRRYrTN*TN + 3]&FC2538tl03; W3[ f3 *XRRY CTN+2 J END? 00915480 T 0025 C 

END J 00915500 T 0030 

IF m = XRBUFF THFN IF K*xRl MOD K DIV 1 s* THFN BEGIN H*3xk;g0 Lll ENDJ 00915520 T 0035 ^ 

O GO L4 > 00915540 T 0040 ^ 

LI * IF AtK*!].NAME>TN*(T*AriJ*(«L*J) + I + l).r37ljO]33,NAME THEN 00915560 T 0041 

L12* BEGIN ACIJJ*ACI]; A[I]«-T> TN*( T*AC I J3 > . NAME END 00915580 T 0048 

O ELSE IF CMPARGT(A[I]) THEN GO L12 J 00915600 T 0053 C 

IF ACJ3»NAME<Tn THEN 00915620 T 0066 

BEGIN 00915640 T 0068 

U> L14» A[lJ]*AtJ]l AC J3*-T ,' 00915660 T 0068 C 

IF TN«-(T*AtI J3)»NAME<Af I3.NAME THEN 00915680 T 0071 

L13I BEGIN AUJJ*ACI]I A C I 3 *- T ; TN*C T*A C IJ3 ) » NAME END 00915700 T 0075 

O ELSE IF CMPARGTCACIJ) THEN GO L13 i 00915720 T 0080 O 

END 00915740 T 0093 

ELSf IF CMPARLS(ACJ3) THEN GO L14 ; 00915760 T 0093 _ 

U L2: IF ArL*LM3,NAME>TN THEN rO L2J IF CMP ARGT( A [L 3 ) THEN GO L2 ; 00915780 T 0106 O 

L3S IF A[K«-K+13,NAME<TN THEN rO L,3; IF CMPaRLS( At K3 ) THEN GO L3 J 00915800 T 0122 



o 



c 



u 



O IF K LFQ L THEN BEGIN DOUBLE C AC K 3 » A t L] » * * A [ L ] » A t K ] ) I GO L2 END J _ _ .. , W1VU 

^ IF L + K>J+I THEN BEGIN I LCM 3 -I ; lUtM J-LJ I«-K END 00915840 T 0142 C 

ELS F BEGIN ILCM3-KI lUfMUJ; J*L END I 

'<-> L4? IF T + 10<J THEN GO Ll J 

IF T=0 THEM IF I < J THEN GO Ll J 
FOR l+T+1 STEP 1 UNTIL J flO 
° IF A[K*i-i].NAME>TN*tT*A[I]),NAME THEN 00915960 f 0162 C 

BEGIN 
L5! ArK+1 J*ArKJI IF A [ K + K-l ] . NAME>TN THEN GO L5 i 

IF CMPARGTCArKI) THEN GO L5 i 00916020 T 0173 C 

AfK+l]*T ; 

END 
ELSE IF CMPARGT(A[K3) THEN GO L5 i 00916080 T 0187 C 

IF fM*M-l) GEO THEN BEGIN I-ILCM3* JHU[H]J GO L4 END * ' ! !f 

G*XrI-j t 
FOR 1*0 STEP 1 UNTIL G DO 00916140 T 0206 C 

IF B00LEAN(L«-REAL(AtT]«-A[n,NAMESCTN«-W3rJ*ACI3,t2U03])rU26»n 
=XTA)) THEN 

BEGIN 00916200 T 0213 C 

IF IT*IT+1=9 THEN 

n BEGIN LASTLINE*-FALSEi WRITE(LINE^15fPRlNTBUFFC*]) ; --,»„„,„ , wtw 

^ L6J BUANKIT(PR|NTBUFF»15»IT*0) J 00916260 T 0221 C 

END J 

r , SETPNT(ACl3»W2CJ],PRlNTBUFF»KLASStTN.CLASS],TYPES[TN. 

^ SUBCLASS3MF BOOLEAN(TN) THEN "*" FLSE " M »lT,L-l» 

LASTL?NE,6-TN,f27l3]) j 
END 
U ELSE BEGIN 

LASTLINE«-TRUfJ WRiTEfRlTE»l5,PRiNTBUFF[*])J XTA«-Art] * 
GO L6 I 
^ END t 

WRITE(LINE»15»PRINTBUFF[*])J xri*o ; 

end of xrefcoresort ; 



•sJ 



V_' 



PROCEDURE SETUPSTACK 
PRT(506) 9 SETUPSTACK 
° BEGIN 

REAL ll 

O STACKfF+2) s J 

EMITOPDCLITC 16)» 
r , EHiTL(l)l 

^ eMitocaddh 



o 



EMITLC16); 

fMitocsnd); 

FOR t * 1 STEP 1 UNTIL LOCALS DO EMlTL(O)) 00924000 T 0003 O 

CHECKlNrOj ' 

IF DATAPRT * THFN 
^ BFGIN ADJUST? E« I TOPnCL I T( DATAPRT) ; FMITOCLNG)? EM| TB( -1 » TRUF ) J 009*25020 T 0009 O 

DATASKP^LAXJ EM I TB (DATASTRT. FALSE ) ; F I XB (OATALI NK ) > 
EMiTL(l); FMlTPA|RCDATAPRT,STD>l F I XBf DATASKP) ; 

^ end; 

ADJUST; 
END SETUPSTACK? 

o 

PROCEDURE BRANCHLIT(X,Y)J VALUE X*Yj REAL X; BOOLEAN Y; 



00915820 


T 


0138 


00915840 


T 


0142 


00915860 


T 


0148 


00915880 


T 


0152 


00915900 


T 


0153 


00915920 


T 


0155 


009159^0 


T 


0158 


00915960 


T 


0162 


00915980 


T 


0166 


00916000 


T 


0167 


00916020 


T 


0173 


00916040 


T 


0185 


00916060 


T 


0187 


00916080 


T 


0187 


00916100 


T 


0200 


00916120 


T 


0205 


00916140 


T 


0206 


00916160 


T 


0207 


00916180 


T 


0210 


00916200 


T 


0213 


00916220 


T 


0213 


00916240 


T 


0215 


00916260 


T 


0221 


00916280 


T 


0224 


00916300 


T 


0224 


00916320 


T 


0226 


00916340 


T 


0230 


00916360 


T 


0232 


00916380 


T 


0232 


00916400 


T 


0233 


00916420 


T 


0240 


00916440 


T 


0240 


009J6460 


T 


0243 


00916480 


T 


0248 


256 LONG 


M 


NEXT SEG 


00916900 


T 


0347 


00917000 


T 


0347 


00918000 


T 


0347 


SFGMENT 


********** 


00919000 


T 


0000 


00920000 


T 


0000 


00921000 


T 


0001 


00922000 


T 


0002 


00923000 


T 


0003 


00924000 


T 


0003 


00925000 


T 


0008 


00925010 


T 


0008 


00925020 


T 


0009 


00925030 


T 


0012 


00925040 


T 


0015 


00925050 


T 


0018 


00925060 


T 


0018 


00926000 


T 


0018 


21 LONG 


* 1 


MEXT SEG 


00927000 


T 


0347 



o 
o 

34 IS 256 LONG* NEXT SEG 6 O 



U 
START OF SFGMENT ********** 35 

o 

o 



o 

o 



o 

35 IS 21 LONG, NEXT SEG 6 O 

o 

n 



u 



L. 



PRTC507) =? RRANCHLIT 
^ BEGIN 

IF ADR > 4075 THEN 

BFGIN ADR *■ ADR+1? SEGOVF END? 
O ADJUST} 

IF X.SEGNO/NSEG THEN BEGIN 

IF (PRTS+l) t r37l8J»l AND Y THFN 
O EMlT0PDCLlTCPRG0ESCBLDRf2»0»(ADR+5) DI V 4+l»NSEG)) 

ELSE EMlT0PDCLIT(PRGDEScBLDR(2»0,CADR+5) 01 V 4, NSEG)) END 

EUSE , .... 

O EMlTL((ADR + 5) D?V 4 " X.LINK DI V 4) I 00935000 T 0364 ^ 

END BRANCHLITi 
PROCEDURE SEGMeNT(SZ.CURSeGpSfGTYP.fDOC)) % WRtTeS OUT EDOC AS SfGMFNT 

VALUE SZ.CURSEG.SEGTYP) % UPDATES PDPRT WITH PSUEDO 00938000 T 0368 <~ 

Reai, sz.curseg? % UPDATES pdprt with PSUEDO 

BOOLEAN SEGTYPJ % TRUE TO WRAP UP A SUBROUTINE BLOCK 

% FALSE TO WRAP Up A SPLIT BLOCK 00941000 T 0368 ( - 

ARRAY EDoCtO»0]J % CONTAINS DATA TO WRITE; 

BEGIN 

STREAM PROCEDURE MlCF»T)? BEGIN DI * T ? S I * F ? DS ♦ 2 WDS END; 00944000 T 0368 ( - 

START OF SEGMENT ********** 36 

c 



( 1 



w 



PRTC510) = Ml 
O REAL T, 

STACK(F+2) = T 



STACK(F+3) a BEGINSUB 
STACKCF+4) s ENDSUB 
STACK(F+5) = HERE 



RFAL BEGINSUB* ENDSUB* HERE? 



LABEL WRITEPGMJ 00967000 T 000! L, 

INTEGER I, CNTR; 
STACK(F+6) = I 

STACKfF+7) a CNTR , C 

TF DEBUrTOg THEN FLAGROUTl NEC » SEGM"#»ENT ".TRUE ) ? 

TF NOT SEfiTVP THEN fiO TO WRlTEPGMJ , , . .._ 

O TF SPLINK > I AND NOT RETURNFOUND THEN 00949100 T 0003 C 

BEGIN XTA * BLANKS? FLAGC142) END? 

IF SPLlNK < THEN . „_,. 

BEGtN 00951000 T 0008 C 

ADJUST? 

BDPRTrBDX^BDX + i] «. PRGDESCBLDR C 1 * Of fADR + l) 01 V 4» NSEG)? ....,,_-.. . ._.. 

^ for i * 1 step 1 until locals do emitlco)? 00954000 t 0014 C 

CHECKlNFO? 

O EMlTBfO&lNlTIALSEGNOCToSEGN03» FALSE)? 

END 

ELSE ____. , _,_ 

O IF SPLINK = 1 THEN 3! MAIN PROGRAM 00959000 T 0022 L. 

BEGIN 

ADJUST? .__._ , ..„„. 

O IF STRTSEG * THEN FUGC75)? 00962000 T 0024 C 

STRTSEG * NSEG ft 

PRGDESCBLDRC 1* 0, CADR+1) DIV 4, NSEG ) [ 18 » 33 : 1 5] ? 

■J sftupstack? 



O END 

O 



FMlTBfO&jNlTlALSEGNOrTOSEGNO], FALSE)? 
ELSE 



00928000 


T 


0347 


00929000 


T 


0347 


00930000 


T 


0348 


00931000 


T 


0351 


00932000 


T 


0351 


00932300 


T 


0353 


00932700 


T 


0355 


00933000 


T 


0359 


00934000 


T 


0364 


00935000 


T 


0364 


00936000 


T 


0367 


00937000 


T 


0368 


00938000 


T 


0368 


00939000 


T 


0368 


00940000 


T 


O368 


00941000 


T 


0368 


00942000 


T 


0368 


00943000 


T 


0368 


00944000 


T 


0368 


SEGMENT 


********** 


00945000 


T 


0000 


00946000 


T 


0001 


00947000 


T 


0001 


00948000 


T 


0001 


00948010 


T 


0001 


00949000 


T 


0003 


00949100 


T 


0003 


00949200 


T 


0005 


00950000 


T 


0007 


00951000 


T 


0008 


00952000 


T 


0009 


00953000 


T 


0009 


00954000 


T 


0014 


00955000 


T 


0020 


00955500 


T 


0020 


00956000 


T 


0020 


00957000 


T 


0022 


00958000 


T 


0022 


00959000 


T 


0022 


00960000 


T 


0023 


00961000 


T 


0024 


00962000 


T 


0024 


00963000 


T 


0026 


00964000 


T 


0027 


00965000 


T 


0030 


00965500 


T 


0030 


00966000 


T 


0030 


00967000 


T 


0032 


00968000 


T 


0032 



L. 



c 
c 

c 



O TF ELX < i THEN nriOAonnn 

^ BEGiN 00969000 



ADJUST; 

O T * PRGDESCBLDRC1, GETf SPL T NK ) , ADDR, fADR+1) DIV A, NSEG>> 00972000 

^ SETUpSTACK^ aa«, ««« 

FIXPARAMS ( 0); ^o^nnn 

O £ INEOCSPLINK.IR* S PL I N K , I C ] . SEGNO «• NSEGI 00975000 

N _ s _ 00976000 

BEGTN 00977000 

U " ADJUST ; 00978000 



00970000 T 0034 L 

00971000 



BFGINSUB * CADRMJ « NSEGCTOSEGNOJI SSSSSSSS T °°' 5 ^ 



■ , EMITLC17)| EMITO(STD)! 00981000 

setupstack; ™!!:::; 



u 



■u 



00982000 T 0049 L 

EMIT0PDCUTC17); EMJ T 0(GFW) { So? n ?Jnn 

ENDSUB ♦ ADR & NSEGC TQSEGNO ) ', 009ftinnn t oori C 

FOR I . STEP 1 UNTIL ELX-1 llllt ™ \ °°l\ 



BrrtN 00985000 

° adjust; JJ*;j!!J 

hfre * cadr+1) div 4? 
t * entrylinkch.link; 



/ *, 



00987000 T 0057 C 

00988000 
•U ^ VOlD ' u -*»»n-.-i-"v 00989000 

T * PRGDESCBL0RC1. 6FT C T).ADDR. HERE* NSEG)I 00991000 T 0061 

•- BRANCHLI Tf ENDSUB, FALSE); 0099?OoS 

^ EMlTBfBEGTNSUB. FALS F ); nnoo^nn 



adjust; 

FjXPARAMSf i ); 



00993000 T 0065 ^ 

00994000 



O 



00998000 T 0073 C 



o 



WRlTECGODEtDALOC]); OiOisnon 

DALOC + DALOC + 1? SJoJaSSS 

END UNTIL CNTR > SZ; 01016000 
PDINX * PDINX +i; 



o 



o 






iNFOtfENTRYLlNKtn. LINK), IR.CENTRYuiNKtN. LINK) •lC] t SEGNO»MSEG» 00995500 

END* 00996000 

• SZ . <ADR + „ DIV „ IVZlll 

CNTR * 0; 00998000 

CURSEG * NSEG; nnnnn 000 
V WRITEPGM. 

NS« * <<T ♦ SZ) + 29) DIV 30; g J§J$2$ 

O l l 0AU0C DIV CHUNK < I * CDALOC+NSEG) DIV CHUNK 01002000 , uu . 

THEN DALOC «• CHUNK x j; g JNSURE SEGMENT DONT BREAK 01003000 T 006? O 

X ACROSS ROW oinoannn 

O I F ddI S I° 6 T n EN WRTTALISTCSFGEND.Z.CURSEG^O, 0,0, 0,0,0) ; 01005000 , uu OJ 

SZ8DALOCfDKAC3 oioomno 

r- * 6ET(SPLlNK)tl2lMU] 007?00 

SCURSEGtSGNOC]? nlnnU™ 
IF ERRORCT 9 THEN 

° FOR ill STEP- 2 WHILE I < 30 AND CN T R < SZ DO olonOOO T 0097 O 

BFGIN MlfFD0ctCNTR. [3 8:3],cNTR f C4i:7 ]] ,C0DE(I)); OlOlZOOO 

O END . CNTR * CNTR + ?} 3000 



O IF NoT S EGOVFLAG THEN 01nifln „ 

•~-* IFPXREFTHEN 01018025 . _^ 

IFCEODS.(NEXT = EOF))AND NOT XGLOBALS THEN ELSE 01018110 T ^^ 



1 T 


0032 


i T 


0034 


' T 


0034 


T 


0035 


T 


0039 


T 


0039 


T 


0040 


T 


0044 


T 


0044 


T 


0044 


T 


0045 


T 


0045 


T 


0047 


T 


0049 


T 


0049 


T 


0049 


T 


0051 


T 


0053 


T 


0057 


T 


0057 


T 


0057 


T 


0059 


T 


0061 


T 


0061 


T 


0064 


T 


0065 


T 


0066 


T 


0066 


T 


0067 


T 


0071 


T 


0073 


T 


0073 


T 


0075 


T 


0076 


T 


0076 


T 


0077 


T 


0079 


T 


0081 


T 


0083 


T 


0083 


T 


0088 


T 


0090 


T 


0092 


T 


0093 


T 


0095 


T 


0095 


T 


0097 


T 


0102 


T 


0107 


T 


0109 


T 


0109 


T 


0114 


T 


0115 


T 


0116 


T 


0118 


T 


0119 


T 


0120 



^ 



01008000 T 0093 O 

01009000 



01014000 T 0109 U 



01017000 T 0115 O 

01018000 



O 
C) 



L 



O 
O 
O 

o 

c 

o 
o 



o 



o 



o 
o 

u 

o 
o 
o 



BEGIN KLASSC63 * "LABEL "J 

WRITE(XREFF,XRbUfF»XrRY[*]) t 

if firstcall then datime else wr i tecptr [p age] ) i 
if splink<o then 

BEGIN WRlTp(PTRtXHEDB);REWIND(XREFF)JEND 
ELSE 
IF FODS THEN BFG T N -WR! TEC PTR, XHFDG ) J REW I NDCXREFG )' FND 
ELSE BEGIN REW? NDC XReFF > * C2*C XRI 4 ] , SUBCLASSX2+5 ) i 

IF tT*XR U ],CLASSsFUNID then writecptr,xhedf# 

XR[C2).XRtC2+13»XR[3J»XRtC2+12]f 
PRTfSll) b *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

XRtC2+l3]»» "} 

FLSf TF IT-SUBRID THFN WRlTEf PTR»XHEDStXRr3]» 

prt(512) s *ltst, label. or segment descriptor* 

" ») else write(ptr»xhedm)j 

end; 

IT*XTA*0 i 

LASTLINE * FALSE; 

BLANKIT(pRlNTBUFF*15»0)J 

IF XRI>1023 OR EoDS THEN SoRTC PT* I NP> 0» HV . CMP» 3» 4000 ) 
PRT(513) s Ot0!63300000000030/(2Q660017ERRORCT000000304 
PRTC514) = MERGE 

ELSE XREFCORESoRT ; 
PRTC515) b SORT 

rewindcxreff)j 

pxrefmf xref thfn true else false; 

klassc6] * "error »; 

if cnot segtyp and eods) or csfgtyp and listog and 
not segptog) then write ( ptrc pagej > ; 
end; 

if listog and segtyp and segptog then wrl tec ptrc page] ) ; 
if segtyp then 

BEGIN 

FOR 14-12,17 STEP 1 UNTIL 24.39 STEP 1 UNTIL 4 1 , 

50 STEP 1 UNTIL 57 DO T I PEC I ] *REALl D ; 
STACKfF+10) s *TEMPORARY STORAGE* 

FOR t*25,33 STEP 1 UNTIL 37 DO T iPECl 3 «• I NT I D i 
STACKfF+lD = *TeMPORARy STORAGE* 

LASTNEXT*iQOO ' 

END ; 

endsegtog * true; 

tsegsz «. tsegsz + sz; 

comment if segsw then lets also write out the line segmfnts 
that we Ve gone to such trouble building, lineseg 
contains a card sequence numberc bi nary) in c 10 : 283 
and the word boundary address of the first code 
syllable in [38*10]; 

if segsw then 

if nolin > o then 

BFGIN 

LlNEDICTtCURSEG.IR.CURSFG.lC] * % UPDATE LINE DICTIONARY 
& N0LlNU 8 *33*l5] & nALOC [ 33 l 33 : 15] ;XFOR THIS SEGMENT 
CNTR * 0; DO BEGIN 

FOR I * STEP 2 WHILE T<30 AND CNTR<NOLjN DO 
BEGIN 

MiCLlNESEG[CNTR,r3B|3],cNTR,t4l8 7]],C0DFCI)>; 
CNTR * CNTR + 2 



0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 



8120 
8125 
8130 
8135 
8140 
8145 
8150 
8160 
8170 
8180 



01018190 T 
01018200 T 



01018210 
01018220 
01018260 
01018280 
01018320 
01018330 



0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 



8350 
8355 
8360 
8370 
8375 
8380 
9000 
9100 
9110 
9150 
9160 



01019190 
01019200 
01020000 
01021000 
01021010 
01021150 
01021200 
01021250 
01021300 
01021350 
01021360 
01021400 
01021450 
01021500 
01021550 
01021600 
01021650 
01021700 
01021750 



0123 
0125 
0129 
0137 
0137 
0143 
0143 
0149 
0153 
0158 

0167 
0170 

0183 
0192 

0192 
0194 
0195 
0197 



01018340 T 0218 



0221 
0223 
0226 
0227 
0230 
0236 
0236 
0242 
0243 
0243 
0253 



01019170 T 0260 



0267 
0268 
0268 
0270 
0271 
0271 
0271 
0271 
0271 
0271 
0272 
0273 
0273 
0276 
0277 
0279 
0284 
0284 
0289 



c 
c 

c 



c 

c 






c 



c 
c 
c 

c 

o 
o 
o 
o 



v_y 



^ 



<~s 



(J 

o 



end; 

writeccodftdaloc]); 
daloc * daloc + ii 

END UNTIL CNlTR > nOlINI 
END I 
IF NOT SEGOVFLAG THEN XRI 1= 01 
IF DEBUGTOG THEN FUAGRoUT InE (" SEGM'».»ENT 
END SEGMENT} 



•♦.FALSE) t 



PROCEDURE WRITEDATA(SZ#SEG,ARY); % WRITES OUT TYPE 2 SEGMENTS 
VALUE SZ.SEGJ 

REAL sz.seg; 

ARRAY ARYtOU 
BEG?N 

INTEGER T,NSEG»I»CNTRI 



v^ 1 



STACKfF+2) 3 T 

STACKfF+3) = NSFG 

STACKcF+4) a I 

STACKfF+5) = CNTR 

STACKfF+6) a TYPF 

PRTf5i6) = M30 



01021800 
01021650 
01021900 
01021950 
01021955 
01021957 
01021959 
01022000 
36 IS 309 LONG. 
01023000 T 
01024000 
01025000 
01026000 
01027000 
01028000 

START Of SEGMENT 



0290 
0291 

0296 
0297 
0298 
0298 
0301 
0303 
NEXT SEG 
0368 
0368 
0368 
0368 
0368 
0368 



c 



********** 



37 



o 
o 

o 
o 

u 
O 



O 

o 
O 



PRTC517) s FMT 



INTEGER TYPE? 

STREAM PROCEDURE M30fF.T,Sz)S VALUE SZ> 

BEGIN 

si * fj di «■ t; ds *■ sz wdsj 

END M30I 

IF SZ > THEN TYpE «• ? ELSE SZ * -SZl 

NSEG *• CC T «• SZ) + ?9) D IV 30? 

IF DALOC DIV CHUNK < I * CDALOC+NSEG) DI V CHUNK 

THEN DALOC «• CHUNK x I; 
PDPRTrPDlR*PDIC3 * 

SZ&DAL0CCDKAC3 
&TYPE[STYPC3 
&SEGCSGNOC1I 
PDINX «• PDINX + U 
IF ERRORCT = THEN 
FOR I «• STEP 30 WHfLE I < SZ DO 
BEGlN 

M30(ARYtn»C0DEC0),lF (SZ-T) > 30 THFN 30 ELSF CSZM))J 
WRlTECCODE[DALOC])? 

DALOC «• DALOC + IS 
END! 

if listog then writalistcsfgend.2.seg»t»o.o,o.o.o.o) t 
tsegsz * tsegsz + SZ J 

END WRlTEDATA! 

REAL PROCEDURE PRGDESCBLDRf DT, PRT. REI.ADR* SGNO ) i 
VALUE DT.pRT.RELADR,SGNO* 
REA|. DT»PRT#RELADR.SGn0J 
BEGIN 
FORMAT FmTC»PRTs"»A4»% REL-ADRs",A4»»» SEGs"»I4#% TYPE=". A2)J 



IF PRT=0 THEN BEGIN rUmPPRTJ PRT*PRTS END? 



01029000 T 0000 
01030000 T 0000 



37 IS 



START 
START 

39 



OF 
OF 



01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 
01045000 
01046000 
01047000 
01048000 
01049000 
01050000 
01051000 
01052000 

48 LONG. 
01053000 T 
01054000 
01055000 
01056000 
01057000 
SFGMENT 
SEGMENT 



0000 

0000 

0001 

0001 

0005 

0007 

0009 

0012 

0014 

0015 

0016 

0018 

0019 

0020 

0024 

0024 

0032 

0036 

0038 

0038 

0043 

0044 
NEXT SEG 

0368 

0368 

0368 

0368 

0368 
********** 
********** 



c 



v^ 



c 



^ 



c 



^ 



u 



^ 



c 



/—<. 

^ 



c 

c 



IS 13 LONG* NEXT SEG 
01058000 T 0000 



38 
39 

38 



V_ 



^ 



c 



V, 



o 



38 IS 30 LONG, NEXT SEG 



o 



o 






PDPRTCPOIR»PDIC] * 01059000 T 0005 

°' O&DTrDTYPC] 01060000 T 0008 

&PRTCPHTAC] 01061000 T 0009 

&RELADRCRFUADC3 01062000 T 0010 

^ &SGN0[SGN0C3; 01063000 t 0011 C 

PDINX «- PDINX + l; 01064000 T 0012 

IF CODETOfi THEN WR I TaL I STCFMT, 4 ,B2DC PRT ) »B2DC RELADR) # SGNO, 01065000 T 0014 

O if dt=o then "ae" else if dT-i then "Pd m else "Ld h »o,o#o,0) > 01066000 t ooi7 C 

PRGOESCBLDR * PRT? 01067000 T 0023 

END PRgDESCBLDR; 01068000 T 0024 



n 



PROCEDURE FQUiVfR); VALUE RJ REAL Rl 01069000 T 0368 

COMMENT THIS PROCEDURE FIXES Up THE INFO TABLE FOR THE EQUlV OR 0l069t00 T 0368 

O common ring, the first element past has an offset cdo not oi069no t 0368 C 

ALTER THIS) THE TYpE IS FIXED, THE OFFSET IS DETERMINED 01069120 T 0368 

FROM THE FIRST, CoRRECTjNFO ADJUST THE OFFSET IF THERE 01069130 T 0368 

^ IS A NEGATIVE OFFSET ON ANY ELEMENT, THE iNFAtADJJ BIT IS 01069140 T 0368 ^ 

SET IF THE ELEMENT HAS A NEGATIVE OFFSET, IF THE ELEMENT 01069150 T 0368 

APPEARED IN MORE THAN ONE EQUIVALENCE STATEMENT OR AN 01069160 T 0368 

'O EQUIVALENCE STATEMENT AND A COMMON STATEMENT THE ELEMENTS 01069170 T 0368 C 

ARE LINKED BY COMCLASTC] WHICH POINTS TO THE HEADER 01069180 T 0368 

OF THAT STATEMENT? 01069190 T 0368 

^ BEGIN 01070000 T 0368 U 

DEFINE BASS * LOCALS #, * THESE DEFINES ARE USED TO REDUCE THE 01071000 T 0368 

~. start of segment ********** no _ 

& REL = PARMS #, % STACKSIZE OF EQUlV FOR RECURSION 01071100 T 0000 U 

I = PRTS t, 01071200 T 0000 

T = LSTS t, 01071250 T 0000 ,_ 

^ Q = LSTA * f 01071400 T 0000 ^ 

LAST B TV #, 01071500 T 0000 

B s SAVESUBS #, 01071600 T 0000 

O P = NAMElNo t, 01071700 T 0000 O 

PRTX B LSTi t, 01071800 T 0000 

C e FXl #, 01071900 T 0000 

O INFA s FX2 *, 01072000 T 0000 O 

INFB b FX3 t, 01072100 T 0000 

INFC e NXi ti 01072200 T 0000 _ 

v^ LABEi, XIT» CHECK t 01073000 T 0000 C 

IF DEBUcJOG THEN Ft. AGROUTl NEC" EQU","IV »%TRUE ) } 01073010 T 0000 

IF GETCCRXO THEN GO To XIT i 01074000 T 0002 _ 

O PUTC(R»*GETC(R)) ; 01075000 T 0003 O 

PRTX «- GROUPPRTJ 01076000 T 0005 

C*-REAL(GETC(R),CEsl) i 01077000 T 0006 

LASUGETCCR),LASTC-1 i 01078000 T 0008 

BASS^GETC(R+1); P*0 I 01079000 T 0010 

FOR | * R + 2 STEP 1 UNTIL LAST DO 01080000 T 0013 

O BEGIN IF GETCU).CLASSsENDcOM THFN I +GETCC I ) . L I NK ; 01081000 T 0017 C 

GETALL(T*GETCCI5, LINK* INFA, INFB, iNFC) I 01082000 T 0021 

IF Q*INFC.SIZEsO THEN % A SIMPLE VARIABLE 01083000 T 0024 

INFC. SIZE * Q * -IF INFA'SUBCLASS < LOgTYPE THEN 1 ELSE 2J 01084000 T 0026 C 

PUTfT + 2» INFO? 01085000 T 0031 

if tnfa.subclass>logtypf then seenadoub*truej 01035500 t 0032 

if boolfanco then 01086000 t 0036 

bfgin comrpwt],relado*rfl*p i 01087000 t 0036 

P * P + Q; 01088000 T 0041 

U END FLSE COMfPWn,RELADD*-REL*-BASS-GETCf » ).RELADD J 01089000 T 0042 O 

IF INFA < THEN IF INFA .ADJ s l THEN 03090000 T 0052 

o o 

o c 



v_^ 



o 



end; 

FOR I 

BEGIN 

GF 



IF 



o 



I^J 



In 
p* 
o 

IF 
BF 



.SIZE J 

< THEN 
INFA ,ADJ 

* infcbase; 



THEN 
INFB 



~ 1 THEN BASS * -INFC 



FLAGC2) END: 



~^- 



w 



EN 
IN 
IF IN 
INFA 

iNfc! 

PUT(T 
IF P 
PUTd 

CHECK 
IF p + 
IF P 

end; 

FOR I 

BEGIN 

IF 
IF 



O 

o 
o 



B * -InFC.BASE - REL E|.,SE B * INFC.BASE - REL* 

* r+? step i until last do 

if getc(i).class=endc0m then !*getc(i)tllnk } 

TALLCT*GETCC1).LINK»InFa»INFB»INFC) i 
FA. CLASS * 1 THEN SWArYcT «• lj 
B+GETC(I)iRELADD J 
«• INFC 

INFA 
GIN IF 

BASS 

IF P * BASS 

BFGIN XTA «- 

GO TO CHECK? 
D? 

FA * -INFA 
FA .CLASS = 

:typefixfd 

BASE * PI 

+2. info; 
< o then infa 

, INFA) I 

? 

Q > LENGTH THEN LENGTH * P + Ql 

< LOWERBOUnD THEN LOWERBOUND - PJ 

* r+2 step t until last do 

getccd.classpendcom then i*getc( i ),link ; 
t<-getcci),lastc^r then 
if getc(t)>0 then 

BEGIN R*R&UASTt3«33*15]&Itl8l33U5] J 
EQUIV(T); LAST*R,C3li5]; I *R. [ 1 8 1 15 J I 
END I 



BASE ELSE 



& PRTXrTOADDR] i 

unknown then infa 



«ADJ * 11 



CLASS «- VARID) 



R-R.C33J15] } 



END) 
XITI 
IF DEBUr 
END EQUt 



TOG THEN FLAGROUTINEC EQU M » M IV 
VJ 



"iFAUSE) I 



alpha procfdure getspacecs); value si alpha si 
begin label rplus, fminus, xiti 



w 



STACKfF+3) - A 
STACK(F+4> = OWnID 



LABEL DONE? 
REAL A? 

boolfAn ownid; 



40 IS 



START Op 



IF OWNID «• S < THEN S «• 
IF A * GET<GETSpACE«-S) < 
IF A. CLASS GEO 13 THEN FLA 
iE A, CLASS OF 



U 



O 



CASE A, CLASS 
BEGIN 
PRT(5?0) a *CASE STATEMENT DESCRIPTOR* 

BEGIN 

PI 

PU" 



then 

AG<34) 



% 
GO TO 
ELSE 



IN DATA 

done; 



STMT* THUS OWN 



*104- 



IN 

*UTC5*A*A*VARID[T0CLASSJ)I 
PUT(S+2»CGETCS+2) &(!F A. SUB 
THEN 1 ELSE 2 UTOSlZE]))! 



CLASS < LOGTYPE 



01 


091000 


T 


0054 


01 


092000 


T 


0059 


01 


093000 


T 


0060 


01 


094000 


T 


0064 


01 


095000 


T 
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01 


095500 


T 


0071 


01 


096000 


T 
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01 
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01 


098000 


T 
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01 


099000 


T 
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01 


100000 
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01 
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T 
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01 


102000 
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01 


J04000 
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01 
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T 


0086 
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T 


0086 


01 
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0088 


01 


110000 
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01 


111000 


T 


0094 


01 


112000 


T 


0095 


01 


113000 


T 


0096 


01 


1 14000 


T 


0099 


01 


115000 


T 


OlOO 


01 


116000 


T 


0101 


01 


117000 


T 


0104 


01 


118000 


T 


0106 


01 


119000 


T 


0106 


01 


120000 


T 


0110 


01 


121000 


T 


0110 


01 


122000 


T 


0114 


01 


122500 


T 


0117 


01 


122550 


T 


0118 


01 


122600 


T 


0121 


01 


122650 


T 


0126 


01 


123000 


T 


0126 


01 


124000 


T 


0126 


01 


124010 


T 


0127 


01 


125000 


T 


0129 




32 LONG* 


NEXT SEG 


0] 


126000 


T 


0368 


01 


127000 


T 


0368 




•egment 


********** 


01 


128000 


T 


0000 


01 


129000 


T 


0000 


01 


129100 


T 


0000 


01 


129200 


T 


0000 


01 


130000 


T 


0002 


01 


130500 


C 


0005 


01 


131000 


T 


0008 


01 


132000 


T 


0009 


01 


133000 


T 


0009 


01 


134000 


T 


0009 


01 


135000 


T 


0012 


01 


136000 


T 


0015 



o 



41 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



u 



C 



; ) 



fNd; 



IF B00lFAN(A. FORMAL) THEN BUMPLOcALSJ 



u 
O 
O 



u 
C 

o 

o 
o 






o 
o 
o 



; 

BEG I 
GO T 
GO T 
GO T 
BEG I 
E 
ENOJ 
BEGI 
IF B 
IF B 
GO T 
GO T 
END 



N A"TYPEFIXED * 1? GO TO RPLUS rND? 
RPLUSI 
RPL.U5J 

doNf; 

n a!tyPefixed «• u if booleancaIformau) then go to fmjnus 

lse go to rplus; 

N A!TYPEFlXED * \i GO TO RPL^S END? 

OOLFANCA, FORMAL) THEN GO TO FMInUS ElSE GO To RPLUSJ 

OOLEANfA. FORMAL) THEN GO TO FMINUS ELSE GO TO RPLUSJ 

RpLUSJ 

RpLUSJ 

OF CASE STATEMENT} 



a.typeftxed ♦ u 

IF BOOLFANfA, FORMAL) THEN 

GO TO FMINUS; 
IF BOOLfANCA.CE) OR ROOLEANC A \ EQ ) THEN 
BEGIN 

PUT(3»A); 

CALLrQUTV(A.ADDR»OWNlD>fiF.T(S+l>) ; 

GO TO done; 

END? 

A.TWOD «- REAL(GFT(S + 2).SIZF > 10233; 
FMiNUS: 

IF OwNTH THEN BEGIN BUMPPRTJ A»AnDR*PRTS ENn ELSE 
BEGlN BUMPLOCALSJ A.ADnR * LOCALS +1536 ENOJ 

IF A^CLASS = VARID ThEN IF A^SUBCLASS > DOUBTYPE THEN 

if ownid then bumpprt else 
bumpi.ocalsj 

GO T n XITJ 
RPLUS5 

bumpprtj a,addr*prts; 

X IT: 

PUT(S» -A); 
DONE! 
END GETSPACEJ 

INTEGER STREAM PROCEDURE LBLShFTCS)} VALUE S; 
PRT(521) 9 LBLSHFT 

BEGIN 

LOCAL Tl 

label l; 

DI * LOC LBLSHFT; DS * 8 LiT "00 »j 
Dl * Di - 6; Si *LOC S; Si * SI + 2! 
TALLY «■ It T «- TALLY; 
5(T(IF SCs«0» THEN BEGIN S?*S t + 1 ; JUMP OUT 1 TO L END 
ELSE TALLY*0j TOTALLY); 

if sc^ w o»' then ds*chr flse if sc* m » then si*si+i 
else jump out; Li ) ; 

IF SC * " » THEN BEGIN DI * LOC LBLSHFT; DS * LIT « + •' END; 
END LBLSHFT! 

comment emitters and code control* 
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0] 


1159000 


T 


0047 
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T 


0050 
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03 
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01 
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0070 


01 
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0075 
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M67000 
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0368 
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0] 
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0368 
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01 


179000 
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0] 


U80000 
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01 


.181000 
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OJ 
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01 
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01 
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T 


0376 


OJ 


184000 
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01 
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f ) 



'U 



PRT(5?2) = DEBUG 



ALPHA PROCEDURE B2DCB)} VA|.UE B; REAL B; 

B?D * 08,B[45»45f 33&B[39«42*33&B[33>39:33&Bt27S36J33> 
PROCEDURE DEBUG(S); % PRINTS OUT DEBUG CODE 

VALUE SI REAL S? % IF S<0 THEN S IS FIELD TYPE OPERATOR 
BEGIN 

FORMAT FFCX35»*(33C ,, . ,, ))»A4»«'!"»Al»2CX2»A4),X4tA4) J 



■j 



<s' 



o 



w 



'•^ 



o 



PRTC523) = FF 

ALPHA CODF#MNM,SYLJ 
STACKfF+2) 3 CODE 
STACKfF+3) 3 MNM 
STACKfF+4) = SYL 

Real tj 

STACKfF+5) s T 

PROCEDURE SFARCH(CODE»S>? VALUE SI REAL S.COOE* 
PRTf5?4) s SFARCH 

BEGIN % SEARCHS WOP TO FlND CODE FOR S 

REA|, n,H 



STACK(F+2) s N 
STACKfF+3) = I 



u 



^J 



O 



o 



LABEL LI 

N «• 641 

FOR I * 66 STEP IF WoPt I 3 < S THEN N ELSE -N 

WHILE N * N DI V 2 > 1 DO 

IF W0PEI3 »S THEN GO To LI 

I * 01 % NOT FOUND 

LI CODE * wopn + ni 

END SEARCH) 

IF S < THEN 
BEGIN % FIELD TYPE OPfRaTOR 

SYL * SI 

MNM «■ B2D(S,[36!6])J 

IF (S «• S, C42*63) p 37 THEN CODE * "ISO » ELSE 

IF S a 45 THEN COoE * "DU " EUSe 

IF S a 49 THEN COnE * "DIB " ELSE 

IF S = 53 THEN CODE * "TRB "5 
END 

ELSE 
BEGiN 

IF (T «• S.[46»23) * I THEN 
BEGIN 

SYL *■ SJ 

MNM «- B2DcS.t36»103)l 

IF T a THEN CODE *• " L I T C •* 

ELSE IF T -2 THEN CODE «- "OPDC" 

ELSE CODE «- "DESC»* 
END 

ELSE 
BEGIN * SEARCH WOP FOR OPERATOR NaMe 

SYL *S; 

MNM «■ " "; 

SFARCHCC0r)E>S.[36U03)J 



<sJ 
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T 


0381 


o 
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T 
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T 
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T 
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START OF SEGMENT 


********** 44 
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********** 45 
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T 
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NEXT SEG 43 
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T 
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T 


0000 


o 
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T 
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01209000 


T 


0002 




01210000 


T 


0003 


o 


01211000 


T 


0006 
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T 


0011 


o 


01213000 


T 


0015 
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T 


0019 
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T 


0019 


o 


01216000 


T 


0019 


01217000 


T 


0021 




01218000 


T 


0022 


o 
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T 


0023 


01220000 


T 
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T 


0025 


o 
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T 


0027 


01223000 


T 


0031 




01224000 


T 


0034 


o 
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T 


0034 
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T 


0034 




01227000 


T 


0037 




01228000 


T 


0037 


o 


01229000 


T 


0038 


o 



u 



u 



C 



o 



o 



^ 



o 



PRTC525) » WB2D 



STACKCF+2) = A 
PRT(5?6) = F 



O PRT(530) * GIT 



o 



.-., END,* 01230000 T 0040 ^ 

^ END; 01231000 T 0040 ^ 

WRfTALlSTfFFi6,IF ADR<DEBUgADR THEN 1 ELSE - 1 . B2D C ADR , t 36 : 10] ) , 01232000 T 0040 

B2DCADR. [46*23). C0DE»MNM,B2D(SYD. 0,0) ; 01233000 T 0044 

^ TF DEBUGADR<ADR THEN DFBUGADR*ADR J 01233100 T 0048 

END DFBUg; 01234000 T 0050 

43 IS 54 LONG. NEXT SEG 6 

U PROCEDURE DEBUGWORDfN)* VAlUE NJ REAL N* SPRINTS OUT C+ CONSTANTS 01235000 T 0389 O 

BEGIN 01236000 T 0389 

STREAM PROCEDURE WB2DCF.T); 01237000 T 0389 



START OF SEGMENT ********** 46 O 



BEGIN 01238000 T 0000 

^ DI * T; 01239000 T 0000 O 

DUDI + 35; DS*10LIT»C0NSTANT " J 01240000 T 0000 

,- SI «• F; 01241000 T 0002 

O 16(DS «• 3 RESET? 3(IF SB THEN DS * SET 01242000 T 0002 U 

ELSE DS * RESETl 01243000 T 0003 

SKIP SB)); 01244000 T 0004 

O END WB2DJ 01247000 T 0005 O 

ARRAY A[0!14]J FORMAT FCX63» W CDEC "»B» ,f )") ', 01248000 T 0005 



START Of SFGMFNT ********** 47 O 

47 IS 7 LONG. NEXT SEG 46 

WRlTEf AC*]. F.N); WB2D(N»A) J 01249000 T 0007 O 
PRTC527) = +LIST. LABEL," OR SEGMENT DESCRIPTOR* 

WRfTAROWClS.A) i 01250000 T 0017 _ 

^ END DEBUGWORD* 01251000 T 0019 vj 

46 IS 23 LONG. NEXT SEG 6 

REAL PROCEDURE GlTfZ); % RETURNS OPERATOR IN SYLLABLE Z 01252000 T 0389 



o 



VALUE Z; REAL ZJ 0l?53000 T 0389 

BEGIN 01254000 T 0389 

O INTEGER STREAM PROCEDURE GTCS.SKP); VALUE SKP; 01255000 T 0389 O 

START OF SEGMENT ********** 48 
PRTC531) - GT 

O BEGIN 01256000 T 0000 O 

Si * SJ SKPCSI * SI + 2); 01257000 T 0000 

DI * L0C GT; DI *• DI + 6; DS * 2 CHRf 01258000 T 0001 

^ END GT; 01259000 T 0002 O 

GTT * GTCFDOCtZ, [36533. Z.[39l7n.Z,[46»23); 01260000 T 0003 

_ END GIT! 01261000 T 0008 

O 48 IS 11 LONG. NEXT SEG 6 O 

REAL STREAM PROCEDURE SPCLB IN2DFC (N ) J VALUF N I 01261100 T 0389 
PRTf532) s SPCLBIN2DEC 

O BEGIN LOCAL L; LABEL Bl ; 01261110 T 0389 O 

DI«.lOC LJ S!*L0C NJ DS*8DFCJ SUL0C Lj TALLY*8 ! 01261120 T 0390 

bis if sc-"0" then begin tally*tally+63; si*si+i; go bi end ; 01261130 t 0391 

U D1*L0C SPCLBIN2DEC5 Dl*DI+2j DS«-6LlT" »; DT«-DI*6; N«-TALLYJ DS«-N CHRJ 01261140 T 0393 O 

END OF SPCLBIN2DEC J 01261150 T 0396 

STREAM PROCEDURE PACK( T, F . SKP) i VALUE SKP.F; 01262000 T 0397 

O PRTe533) s PACK O 

BEGIN % PACKS OPERATORS InTo EDOC 0l?63000 T 0397 

si * loc f; si * si + 6;di * t; skrcdi «• di + 2); 01264000 t 0393 

O DS * 2 CHr; 01265000 T 0400 O 

end pack; 01266000 t 0400 



o 

o 



o 

O 

O 

o 

c 
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o 



o 

o 
o 
o 

G 

o 
o 

o 



PRTf534) = EMITV 



•STACKCF + 2) s S 



PROCEDURE FMITO(N)| VALUE N) REAL Nj 
BEGJN 
BUMPADR) 

PACK(ED0CrED0CI]»(NM&NC36i38ll0]},ADR,U6i2]) J 

IF CODETOG THEN DEBUgCN)! 
END EMITOI 
PROCEDURE FMITN(P)j VALUE ?i REAL P? 

begin Label xit; 

ALPHA S; 

IF S * GET(P) > THEN s * getcgetspace(P))* 
if siclass s varid then if boqleancs.ce> then 

IF BOOLEAN(S.THOD) TheN 
BfGIN 

FMiTL( (T«-GET(P + 2).BASF).t33 5 7n; 

EMlTDESCLlT(S.ADDR)* 

EMlToaOD); 

EMlTLfT,[40583)? 

EMlTofCDC); 

GO TO XIT? 

End else 

EMlTNUMCGET(p+2) t BASE) 
El.SE 

if not boolean(s f formal) then if not descreq then 
begin 

emitl(s*s,addr)j 

if s, [3782] « 1 then ^referencing 2nd half of prt* 

BEGIN 
IF ADR * 4087 THEN 

BEGIN ADR * ADR + U SEGOVF END? 
EMITOCXRT); 
END? 

GO TO xit; 
END* 

EMITDESCLIT(S,ADDR); 
XIT? 

fNd emitnj 

PROCEDURE FMJTV(P); VALUE P; ALPHA p; 

BEGtN 
ALPHA SJ 



IF S * GETfP) > THEN S * GETfGETSPACE(P))? 
IF S. CLASS r VARID THEN 
IF BOOLEANCS.CE) THEN 

IF BOOLEAN(S.TWOD) THEN 
BEGIN 

EMITL( (T*GET(P+2),BASE).[33J7])J 
EMITDFSCLIT(S,aDdR)J 

emitoclod); 

if s, subclass > doubtype then 

BEGIN 

FMJTO(DUP); 
EMlTPAIRcT,r40l8] + J, COO; 



START 
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^ 
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o 



END 
ELS 
IF 
BEG 



FMfTO(XCH)? 

FMlTPAlR(T,r40»8], COO* 
END ELSE EMi7PAlRCT,r40l8], 



coo* 



o 

o 
o 
o 

o 



END 
BEG 



END 

ELSE 

IF S.SUBC 

if boolea 

bfgin 

EMJTDE 
EMlTOf 
EMJTPA 
FMlTOf 
EMIT0( 
EMITO? 
EMlTOc 

END ELSE 

BfGIN 

EMITOP 
EMITOP 

EmD 

Ei.SE emit 
ELSE EMITOPD 
END EMITV? 



E 

S, SUBCLASS > DOUBTYPE THEN 

IN 

EMI 

EMI 

EMI 

EMI 

EL 
IN 
EMI 
EMI 



TNUMC CT*GETCP+2).BASE)+i )| 
TOPDCLlT(S,ADDR)l 

tnumct); 
t0pdclit(s,addr)j 

SE 

:TNUM(GET(P+2).BASe)I 
T0PDCLIT(S,ADDR3J 



LASS > DOUBTYPF THEN 
N(S. FORMAL) THfN 

scltt(s.addr)? 
dup); 

iRCi, XCH>* 

INX)I 

L0D)> 

XCHH 

LOD)? 



DCUlT(S,ADDR + D* 

dcliTcs.addr); 

0PDCLIT(S,ADDR) 
CLIT(S,ADDR) J 
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01 
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01 
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01 
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01 
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01 
01 
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320000 
321000 
322000 
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326000 

327000 
328000 
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330000 
331000 
332000 
333000 
334000 
335000 
336000 
337000 
338000 
339000 
340000 
341000 
342000 
343000 
344000 
345000 
346000 
347000 
348000 
349000 
350000 
351000 
352000 



U 

o 

C 



PROCEDURE EMITLCN); VALUE Nf REAL Nj 
BEGIN 
BUMPaDRJ 

PACKCEDOCEEDOCI J»CN*0&Nt 36 i 38 5 1 0] ) , ADR. C 46 i 2] ) J 
IF CODETOfi THEN DEBUfiCN)} 
END EMitLJ 

PROCEDURE EMITDCR* OP); VALUE R, OP; REAL R, OPJ 
BEGIN 

BUMP&DR? 

PACKfEDOCEEDOCIJ* (R * OP & Rt36j42»6J)« ADR. 146523)1 

if codetog then debug(-r); 
end emitd; 

PROCEDURF FMiTDDTCB.A.X)? VALUE B»A»XJ INTEGER B.A.X J 
PRTf535) 8 FMJTODT 

BEGIN * DOES DfB B. Dia A. TRB X? HANDLES rB?A»X], 

EMlTDfB«.B MOD 6+B DlV 6x8. DjB)J EMlTDfA*A MOD 6+A DIV 6*8»DIA) ; 

emitdcx*x,trb) ; 
end of emitddt j 

PROCEDURE EMITPAIRCL* OP)J VAlUF L» OPJ INTEGER L# OPJ 
BEGIN 

EM|T|,CL)I 



50 IS 55 LONG* 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



353000 
354000 
355000 
356000 
357000 
358000 
359000 
360000 
361000 
362000 
363000 
364000 
364010 



01364020 
01364030 
01364035 
01364040 
01365000 
01366000 
01367000 



0018 
0019 
0020 
0022 
0022 
0022 
0024 
0024 
0028 

0029 
0030 
0031 
0031 
0032 
0034 
0035 
0035 
0035 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0043 
0044 
0045 
0045 
0045 
0047 
0048 
0048 

0049 
0052 
NEXT SEG 
0412 
0412 
0412 
0414 
0420 
0421 
0423 
0423 
0423 
0425 
0431 
0432 
0434 

0434 
0434 
0441 
0442 
0442 
0442 
0442 



c 

c 

r 



C 
C 

c 

c 



c 

c 
c 

o 
o 
o 
o 
o 



o 
o 
o 
o 
o 



o 



u 



o 



o 



o 

o 
o 
o 
o 
o 
o 
o 

o 



IF L; t 37*23 - 1 THEN 
BEGIN 
IF ADR i 4087 THEN 

BfGIN ADR * ADR+1J SEGOVF END) 

emito(xrt); 
end; 
eMito(OP); 

END EMITPAIRI 
PROCEDURE ADJUST! 

WHILE ADR.[46$2] *3 DO EMlTO(NOP)J 
PROCEDURE FMjTNUM(N)J VALUf Nj REAL N? 
BEG?N 

DFFINE CPLUS s 1792#; 

IF N,r3»6] =0 AND ABSCN) < 1024 THEN 
BEGtN 

EMITL(N)J 

IF N < THEN EMITO(SSn)J 
END ELSE 
BEGtN 
IF ADR > 4079 THEN 

BEGIN ADR «• ADR + ll SeGoVF ENDJ 

EMITOPDCLITCCPLUS + (ADR+i),ta6ll3 + 1)1 

EMITL"(2)I 
EMlTOfGFW); 
ADJUST? 
BUMPADRJ 

PACKCEDOC[EDOCl3«N.tlH13»ADR,t«6i2])j 
BUMPADR) 

PACKCEDOCrEDOCI]»N.[l2il2],ADR,C46»2])| 
BUMPADR? 

PACK(ED0CrED0Cl3»N.C2A:i2] t ADR,[46:2])» 
BUMPADRf 

PACK(EDOCrED0Cl3^N,t36ll2],ADR,[46j2]); 

IF N,[36ll2Js49 THEN %%% IF C-REL CONSTANT LOOKS LlKE AN XRT 
EMlTOfNOP) I %%% THEN INSURE AGAINST P-BIT INTERRUPT, 

IF CODETOr, THEN DEBUnWORDf N) I 
ENDJ 

end emitnum; 



START 



PRT(536) = EMITNUM2 



STACK(F+2) = B 
STACK(F+3) * I 
STACKfF+4) = N 



PROCEDURE EMITNUM2fHI»L0)JVALUE HI»LOJ REAL HI.LOJ 
TNUM? 



51 



BEGIN 

BOOLEAN B; REAL I»N* 



LABfL ZtX J 

DEFINE CPLUS =? 1792#> 
IF H!»0 OR L0=0 THEN BEGIN fMITNUM(LO)J EMlTNUMCHDI GO Z END I 

ADJUST* 
IF ADR Z 4077 THEN 

BEGIN ADR*ADR+i; SEGOVf* AdR*"1 END > 

EMlTOPDCLlT(CPLUS + 2>? pMl TOPDCLI Tf CPLUS + 1); 

FMITPAJR(3»GFW)J 
XS FOR I * STEP 1 UNTiL 3 DO 



START 



01368000 


T 


0443 


01369000 


T 


0445 


01370000 


T 


0445 


01371000 


T 


0446 


01372000 


T 


0448 


01373000 


T 


0449 


01374000 


T 


0449 


01375000 


T 


0450 


01376000 


T 


0452 


01377000 


T 


0452 


01378000 


T 


0455 


01379000 


T 


0455 


01380000 


T 


0455 


OF SEGMENT 


********** 


01381000 


T 


0000 


01382000 


T 


0002 


01383000 


T 


0003 


01384000 


T 


0003 


01385000 


T 


0005 


01386000 


T 


0005 


01387000 


T 


0008 


01388000 


T 


0008 


01389000 


T 


0011 


01390000 


T 


0013 


01391000 


T 


0014 


01392000 


T 


0015 


01393000 


T 


0015 


01394000 


T 


0018 


01395000 


T 


0022 


01396000 


T 


0025 


01397000 


T 


0029 


01398000 


T 


0032 


01399000 


T 


0036 


01400000 


T 


0039 


01400400 


T 


0043 


0H00600 


T 


0045 


01401000 


T 


0046 


01402000 


T 


0047 


01403000 


T 


0047 


S 51 LONG 


i * 


NEXT SEG 


01404000 


T 


0455 


01405000 


T 


0455 


01406000 


T 


0455 


OF SEGMENT 


********** 


01407000 


T 


0000 


01408000 


T 


0000 


01408100 


T 


0000 


01409000 


T 


0004 


01410000 


T 


0004 


01411000 


T 


0005 


01412000 


T 


0008 


01413000 


T 


0011 


01415000 


T 


0012 



c 



51 



c 



<- 



c 






v_. 



52 






o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



BEGtN 



L. 



^ CASE ! OF BEGIN 

PRT(537) * *CASE STATEMrNT DESCRIPTOR* 

N * HT.r I'll 3* 
O N * Hl,tl2H2]> 

N * HI, [24 1 121 1 

N «• HI, [36! 12] > 
U END CASE? 

O BUMPADR) PACK(ED0C[ED0CI3#N.ADR,[46J2])J 

END? 

if cooetog then debuqWorochdi 
O if not b then begin b*truej hi*loi go to xj END* 

IF N = 49 then %%% if c-Rel constant looks like an xrt 
^ EMITO(NOP) 5 %%% then insure against p-bit interrupt, 

END EMJTNUM2J 

O PROCEDURE FMlTLlNKfN); VALUE N* REAL NJ % EMITS LINKS 

PRT(540) s FMlTLlNK 

BEGtN 
O FORMAT FF(X35,*C33( ,, ; M ))#A4»"«",At, w L I NK»» XI 0, A4, ••******«) J 

O PRTC54D s ?? 

bumpadrj 

O PACK(ED0CrED0Cl3»N, ADR.[46»2])J 

IF CODETOG THEN 
_ WRITALIST(FF,A,IF ADR<DEBUGADR THEN 1 ELSE »1 * B2DC ADR, [ 36 5 1 0] ) , 

O B?D(ADR,[46»2])»B2D(N),0,0»0»0) I 

IF DEBUGADR<ADR THEN DeBUGaDR«-ADR j 
END EMITLINKJ 

o 

PROCEDURE EMITSTORECIX, EXp)J VALUE IX, EXP? REAL IX, EXPJ 
PRT(542) 5 FMITSTORE 
C BEGIN 

REAL E» VTI 

O STACK(F+2) * E 

STACKfF+3) = VT 

P * REALCERRORTOG)? 
O FRRORTOG *■ FALSf? 

E * RETfGETSPACF(lX))l 

IF N0T( (VT * E. SUBCLASS) s LOGTyPE EQV FXP * LOGTYPE) OR 
O N0T(VT 9 COMPTYPE EQv EXP » COMPTYPE) thfn 

BfGTN XTA * RETciX + n; FLAG(86) END) 
IF E^CLASS = VARID ThEN 
O BEGIw 

IF B00LEAN(E, FORMAL) OR BoOLEAN( E • CE ) THEN 
BEGIN 
U IF VT < LOGTYPE THEN 

BEGIN 

IF VT = INTYPE AND EXP > REALTYpE THEN EMITPAIRC 1 » IDVJI 
O EMITNCIX)? 

EMITOCIF VT * INTYPE THEN ISO ELSE STD)J 



01416000 


T 


0016 




— , 


01417000 


T 


0016 




L, 


01418000 


T 


0016 




c 


01419000 


T 


0018 




01420000 


T 


0020 






01421000 


T 


0022 




/"> 


01422000 


T 


0023 




c 


START OF SEGMENT 


********** 


53 




53 IS 5 LONG, 


NEXT SEG 


52 


,--*> 


01423000 


T 


0024 




c 


01424000 


T 


0030 






01425000 


T 


0033 






01426000 


T 


0034 




c 


01426400 


T 


0039 






01426600 


T 


0039 






01426650 


T 


0041 




c 


01427000 


T 


0041 






52 IS 44 LONG* 


NEXT SEG 


6 


c 


01428000 


T 


0455 




01429000 


T 


0455 






01430000 


T 


0455 




u 


START Of SFGMFNT 


********** 


54 




START Of SEGMENT 


********** 


55 


c 


55 IS 16 LONG* 


NEXT SEG 


54 


01431000 


T 


0000 




/**■> 


01432000 


T 


0002 




c 


01433000 


T 


0006 






01434000 


T 


0006 




s— V 


01435000 


T 


0012 




c 


01435010 


T 


0015 






01436000 


T 


0017 






54 IS 19 LONG* 


NEXT SEG 


6 


c 


01437000 


T 


0455 






01438000 


T 


0455 




o 


01439000 


T 


0455 






START OF SEGMENT 


********** 


56 












o 


01440000 


T 


0000 




'*"*> 


01441000 


T 


0000 




( ^ 


01442000 


T 


0001 






01443000 


T 


0003 






01444000 


T 


0006 




c 


01445000 


T 


0006 






01446000 


T 


OOH 




o 


01447000 


T 


0012 




01448000 


T 


0013 






01449000 


T 


0015 




o 


01450000 


T 


0015 




01451000 


T 


0016 






01452000 


T 


0016 




o 


01453000 


T 


0020 




01454000 


T 


0020 







o 

o 



o 

c 



v_^ 



L) 



/ ''l 



u 
O 

o 
o 



EN 
BF 



u 



o 



u 



u 



o 



u 



^ 



u 



(J 



EN 
END F 

IF E : 

BEGIN 
IF 
BF 



IF EXP > DOUBTYPE THEN EMITOCDED? 
END ELSE 
BEGIN 

EMITNC IX 5 J 

FMITPA|R(JUNK, STN)J 

EMITO(STD)) 

IF EXP < DOUBTYPE THEN FMlTLCO); 

EMITLCDI 

EMlTPAlRCJUNK, L0d>> 

EMITO(iNX)? 

EMJT0(STD)J 
END 
D ELSE 
GIN 
IF VT = INTYPE AND EXP * ReAlTYPE THEN EMlTPAlRCl* IDV)> 
EMITPAIRCE.ADDR* IF VT = InTYPE THEN ISD ELSE STD)J 
IF VT g LOGTYPE THEN 

IE EXp > DOUBTYPE THEN EMITOCDEL) ELSE ELSE 
BEGIN 

IF EXp < DOUBTYPE THEN EMITLCO); 

EMITPAIR(E,ADDR+1» STD)} 
END 
D 

LSE 
CLASS o ARRAYID THEN 



EN 

be 



VT 
GIN 
TF 
IF 
BE 



EN 
EM 
EM 
D E 
GIN 
IF 
BE 



o 



o 



o 



KJ 



EN 
BE 



< LOGTYPE THEN 

VT b INTYPE AND EXP > RfALTYPE THEN EMlTPAlRCl* IDV)J 

EXP > DOUBTYPE THFN 
GIN 

EMITOCXCH)? 

EMJTOCDEDJ 
D? 

lTO(XCH)? 

IT0(IF VT = INTYPE T H EN fSD ELSE STD)? 
LSE 

EXP > DOUBTYPE THEN 
GIN 

EMlTPAlRCJUNK, STD)> 

EMITOCXCH); 

EMITOPDCLIT(JUNK)} 

EMITOCXCH)! 

EMlTPAlRCJUNK, 5TN)l 

EMITOCSTD)! 

EMITLCDI 

EMlTPAlRCJUNK* L0d)J 

EMIT0CINX)J 

EMITOCSTD)? 
D ELSE 
GIN 

EMITOCXCH)! 
EMlTPAlRCJUNK, STN)J 

EMITOCSTD)? 
EMITLCO); 

eMitlcdi 



0] 


1455000 


T 


0023 


0! 


1456000 


T 


0025 


01 


1057000 


T 


0025 


0] 


1458000 


T 


0026 


0] 


1459000 


T 


0026 





1460000 


T 


0027 


01 


1461000 


T 


0028 


01 


1462000 


T 


0030 


01 


1463000 


T 


0031 


01 


1464000 


T 


0032 


01 


1465000 


T 


0033 


01 


[466000 


T 


0033 


01 


1467000 


T 


0033 


01 


1468000 


T 


0033 


01 


[469000 


T 


0034 


01 


L470000 


T 


0037 


01 


1471000 


T 


0041 


01 


1472000 


T 


0041 


05 


1473000 


T 


0044 


0! 


L4740O0 


T 


0045 


01 


1475000 


T 


0047 


01 


1476000 


T 


0049 


01 


1477000 


T 


0049 


01 


1478000 


T 


0049 


01 


1479000 


T 


0049 


01 


1480000 


T 


0051 


01 


1481000 


T 


0051 


01 


1482000 


T 


0052 


01 


1483000 


T 


0052 


01 


1484000 


T 


0056 


05 


1485000 


T 


0056 


0] 


1486000 


T 


0057 


01 


1487000 


T 


0058 


01 


1488000 


T 


0058 


01 


1489000 


T 


0058 


0] 


1490000 


T 


0059 


01 


1491000 


T 


0062 


03 


1492000 


T 


0062 


0] 


1493000 


T 


0062 


01 


U94000 


T 


0063 


0] 


1495000 


T 


0064 





1496000 


T 


0065 


03 


1497000 


T 


0065 


01 


1498000 


T 


0066 


0' 


1499000 


T 


0067 


0] 


1500000 


T 


0068 


01 


1501000 


T 


0069 


0' 


1502000 


T 


0069 


0] 


1503000 


T 


0070 


0] 


1504000 


T 


0071 


01 


1505000 


T 


0072 


01 


L506000 


T 


0072 


01 


1507000 


T 


0072 


01 


1508000 


T 


0073 


01 


1509000 


T 


0074 


01 


1510000 


T 


0075 


01 


1511000 


T 


0076 



o 
o 
o 
o 
o 
o 
o 
o 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
c 

c 



o 



L, 



O 



fMitpaiRcJunk, LO n ); 

emitoonx); 

emito(std); 



u 



o 



u 



v_; 



u 



.-"1 



o 

O 



END 
END 
END FLSE BEGIN XTA * GET(IX+l)* FLAGC49) ENDI 
ERRORTOG * ERRORTOG OR BOOlEANCP); 
END EMITSTORE? 

PROCEDURE FMITB(A#C)J VALUE A.C; REAL Al BOOLEAN CI 

BEGTN COMMENT GENFRATES LTTC AND BRANCH FROM CURRENT ADR TO ADDRESS A. 

TF THE ROOLEAN C IS TRUE ThEN ThE. BRANCH IS CONDITIONAL. 8E0REF IS 

TRUE IF THE BRANCH IS BACKWARDS; 

BOOLEAN BEOREF! 



56 IS 



01512000 T 
01513000 T 

01514000 T 

01515000 T 
01516000 T 

01517000 T 

01518000 T 

01519000 T 

86 LONG* 



STACK(F+2) s BEOREF 
STACKrF+3) = SEG 



01520000 T 

01521000 T 

01522000 T 

01523000 T 

01524000 T 

START OF SEGMENT * 



0076 
0077 
0078 

0079 
0079 
0079 
0082 
0083 
NEXT SEG 
0455 
0455 
0455 
0455 

0455 

********* 



57 



REAL SEGJ 



U 



O 



'•U 



U 

O 

o 



IF ADR * 4086 THFN 

BfGTN ADR «■ ADR+U SfgOVF end; 
IF A < THEN 

BEGfN 

IF BRANCHX>LBRANCH ThEN FATALM23) * 
BRANCHX «. BRAnCHEScLAX^BRAnChX]! 
BRANCHES[t,AX] «. -(ADr+i)J 

emitlinkco)* 

EmIToCIF C THEN BFC ELSE BFW); 

EMlT0fN0P)J 
END ELSE 
BEGIN 

SEG * A, SEGNO! 

A «■ A, LINK? 

REOREF «• ADR > A; 

IF A.[46?2J =0 THEN 
BEGIN 

IF SEG > AND SEG * NSEG THEN 

EMIT0PDCLIT(PRGDESCBLDR(2» 0, A.C36I10]. SEG)) 

ELSE 

EMlTLf ABS((ADR+2),[36J103 - A. E 36 J 10] ) ) ; 

IF BEOREF THEN 

EMITOf IF C THEN GBC ELSE GBW) ELSE 

EMITOf IF C THEN GFC ELSE GFW)> 
END ELSE 
BEGtN 

EMlTLf ABSfADR + 3 - A))? 

tf beQRef then 

emitocif c then bbc else bbw) else 

emitof if c then bfc else bfw)j 

END; 
END; 

end emitb; 

procedure emitdesclitcn); value ni real n; 

BEGtN 

if N.C37:?] = i then 

BEGIN 
IF ADR > 4087 THEN 



57 IS 



01525000 T 0000 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 



526000 
527000 
528000 
529000 
530000 
531000 
532000 
533000 
534000 
534100 
535000 
536000 
537000 
538000 
539000 
540000 
541000 
542000 
543000 
544000 
545000 
546000 
547000 
548000 
549000 
550000 
551000 
552000 
553000 
554000 
555000 
556000 
557000 



45 LONG* 



558000 
559000 
560000 
561000 
562000 



0000 
0000 
0003 
0003 
0004 
0006 
0007 
0009 
0010 
0012 
0013 
0013 
0015 
0016 
0017 
0018 
0020 
0020 
0022 
0024 
0025 
0028 
0029 
0031 
0034 
0034 
0035 
0037 
0037 
0040 
0042 
0042 
0042 
NEXT SEG 
0455 
0455 
0455 
0457 
0457 



c 
c 
c 

c 

c 
c 
c 






c 
c 



c 



o 
o 
o 



^ 



o 



< ) 






V_/' 



U' 



^ 



o 



o 



o 



o 



o 

o 
o 
o 
o 
o 

o 



BEGIN ADR * ADR+1; SEGOVF END) 

EMITO(XRT); 
FND» 

BUMP ADR J 

PACKCEDOCTEDOCI 3 » ( N«-3&NC 36: 38 110] ) , ADR, t 46 « 2 3 ) 1 
IF CODETOr, THEN DEBUG(N)? 

fNd emitdesclit; 

PROCEDURE FMITOPDCLITCN)} VALUE NJ REAL NJ 
BEGTN. 

IF N.T3752] s 1 ThfN 
BFGIN 
IF ADR * 4087 THEN 

BEGIN ADR * ADR + li SEGOVF END* 

emito(xrt); 

end; 

BUMPADr; 

PACKCE00CtED0CI]i(N*?&NC36i38li03),A0R,[46«Z])l 
IF CODETOG THEN DEBUg(N)* 
END EMITOPDCLIT; 

PROCEDURE EMITLABELDESC(N); VALUE N) ALPHA NJ 
PRTC543) * FMITLABELDESc 

BEGIN 

LABEL XlT; 



STACK(F+2) 3 T 

STACK(F+3) = B 

STACKfF+4) = C 

STACK(F+5) s D 



REAL T,B#C*D J 



START 



IF N < 
BEGTN 
IF T 



IF 
IF 



THEN 



N) ELSE 



END 



LBLSHFT(XTA*N) s OR N = BLANKS 
FLAG(135)J GO TO X IT END* 

* search(N) 9 o Thfn 

T «■ ENTERfO & LABELlDrTOCLASS], 

if gfT{T). class t labeliD then 

BEGIN FLAG(144)J GO TO XIT EnD? 

XrEF THEN enterxcn»o&labelidctoclass])» 

B «-£C*GET(T + ?)) t BASE =0 THEN 

IF <0*GETCT)),SEGNO' t O THEN C . BaSE*B*prGDESCBLDR(2» <>• . ADDR 

D, SEGNO) ELSE 

BEGIN BUMPPRTI C ,BASE*B*PRTS END; pUT(T+2»C); 
EMITiJB); EMITO(MKS); 
EMITDESCLITf 1536)> % F+0 

EMIToPDCLITU537)J % F + l 

EMI TVCNEEDC, LABEL'S INTRFUNID)){ 
X I T s 

EMULABELDFSC; 



DIV 4» 



01563000 T 0458 

01564000 T 0460 

01565000 T 0461 

01566000 T 0461 

01567000 T 0464 

01568000 T 0469 

01569000 T 0471 

01570000 T 0474 

01571000 T 0474 

01572000 T 0474 

01573000 T 0475 

01574000 T 0475 

01575000 T 0476 

01576000 T 0478 

01577000 T 0479 

01578000 T 0479 

01579000 T 0482 

01580000 T 0487 

01581000 T 0489 

01582000 T 0492 



01583000 
01584000 

of segment 

01585000 



T 0492 

T 0492 

********** 

T 0000 



58 



COMMENT TRACEBACK» OFLOWHANGERS, AND PRTSAVFR ARE 
PROCEDURES USED TO ACCUMULATE FORMAT AND NAMELlST ARRAYS? 
PROCEDURE TRACEBACK(M,DEX»PRT)J value m»dex.prt; INTEGER M,DEX»PRTJ 
PRTf544) s TRACEBACK 

BEGIN INTEGER l»J» REAL C; 



58 IS 



01586000 T 
01587000 T 
01588000 T 
01588100 T 
01588200 T 
01588300 T 
01588400 T 
01589000 T 
01589010 T 
01589020 T 
01590000 T 

01591000 T 
01592000 T 
01593000 T 
01594000 T 
01595000 T 
01596000 T 

47 LONG* 
01597000 T 
01598000 T 
01599000 T 



0000 
0004 
0005 
0007 
OOlO 
0012 
0014 
0017 
0020 
0026 
0028 
0036 
0037 
0038 
0039 
0040 
0041 
NEXT SEG 
0492 
0492 
0492 



STACKfF+2) = I 
STACKfF+3) s J 
STACKfF+4) = C 



01600000 
START OF SEGMENT 



T 0492 

********** 59 



IF tC*GET(M+2)).BASE / ThEn 



OlfiOlOOO T 0000 



C 

/' ' 

c 
c 
c 






o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



o 
o 
o 
o 



BEGIm I * ADr; ADR «■ c.baSe? 
DO BEGIN J * GlT(ADR)? 
ADR «- ADr - 1; 
EMITL(DEX)? 
EMITPAlR(PRT»L0D)j 
END UNTIL ADR «• J p O; 
ADR * i; 
end; 

lNFOtM,TR»M,IC3,ADDR * PRT? PUTC M+2 ,0&DEX[ TOBASE 3 ) I 

END traceback? 



PROCEDURE OFLOWHANfiERSd ); 
PRU545) = OFUOWHANGERS 

BEGIN INTEGER J; LABEL XiTI 



VALUE I? INTEGER II 



STACK(F+2) = J 



'O 



o 



FOR J * 1 STEP i UNTIL MAXNBHANg DO 

IF FNNHANGrJ] = THEN % MaKe AN ENTRY 

BEGIN FNNhaNgNJ * II 

PtjTf ?+2,J)? 

GO TO xjt; 
ENDI . 

XTA * MAXNBHANG? % IF We REACH HERE WERE HURTlN 
FLAG(9i)J 
XIT » 
END OFLOWHANGERSJ 



o 



o 



PROCEDURE PRTSAVER(M»SZ*ARY)I 
PRTC546) s PRTSAVER 

INTEGER M.SZ? ARRAY ARY[03? 
BEGIN INTEGER II REAL INFAl 



VALUE M»SZ? 



J 

o 

o 
o 

u 

o 
o 



STACK(F+2) = I 
STACKeF+3) = INFA 

LABEL ShOW,XIT? 

TF CINFA*6FTCM)) < THEN % PREVIOUSLY DEFINED 

BEGIN XTA * GET(M+1)J 

FLAGC20)* GO TO XjT? 

END? 

IF I * tNFA ,ADDR * THEN % PRT ASSIGNED AT OFLOW TIME 

show? 

BEGIN t * PRGDESCBLDRC1»I»0,NXAVIL * NXAVlL + l)? 
WRlTEDATA(SZ,NXAVlLt ARY)? 
FMNHANGrGET(M + 2).SlZ£] «• 0? 
END ELSE % ADD THIS ARRAY TO HOLD 
BEGIN IF ENNPRTsO THEn BEGl N BU M PPRT? FNNPRT*PRTS END? 

IF FNNINDEX + SZ > DUMPSIZE ThEN X ARRAY WONT FIT 

IF SZ > DUMPSIZE THEn % ARRAY WILL NEVER FIT 

BFGlN BUMPPRT?FnnHANG[GETCM + 2)iSIZE}*o? TRACEBACK(M»O.I«-PRTS); 

go to show? 
End else % dump out current holdings 
bfgin fnnprt * prgoescbldr( i»fnnprt»o»nxavil * NXAVlL + 1)1 

WRITEDATAC FNN INDEX* NX AVlL»FNNHOLD)? 

FNNINDEX * 0? BUMPPRT? FNNPRT «-PRT5? 
END? 

FNNHANGtGETCM + 2).SjZE] *0? 
TRACEBACK(M»FNN INDEX, FNNPRT J I 



01602000 


T 


0003 


01603000 


T 


0005 


01604000 


T 


0007 


01605000 


t 


0008 


01606000 


t 


0009 


01607000 


T 


0010 


01608000 


T 


0012 


01609000 


T 


0012 


01610000 


T 


0012 


01611000 


T 


0019 


59 IS 22 LONG* 


NEXT SEG 6 


01612000 


T 


0492 


01613000 


T 


0492 


start of segment 


********** 60 


01614000 


T 


0000 


01615000 


T 


0001 


01616000 


T 


0002 


01617000 


T 


0003 


01618000 


T 


0005 


01619000 


T 


0005 


01620000 


T 


0008 


01621000 


T 


0008 


01622000 


T 


0009 


01623000 


T 


0010 


60 IS 13 LONG, 


NEXT SEG 6 


01624000 


T 


0492 


01625000 


T 


0492 


01626000 


T 


0492 


START OF SEGMENT 


********** 61 


01626100 


T 


0000 


01627000 


T 


0000 


01628000 


T 


0001 


01629000 


T 


0004 


01630000 


T 


0005 


01631000 


T 


0005 


01631100 


T 


0007 


01632000 


T 


0008 


01633000 


T 


OOll 


01634000 


T 


0012 


01635000 


T 


0015 


01636000 


T 


0015 


01637000 


T 


0021 


01638000 


T 


0023 


01639000 


T 


0024 


01640000 


T 


0033 


01641000 


T 


0033 


01642000 


T 


0033 


01643000 


T 


0037 


01644000 


T 


0038 


01645000 


T 


0044 


01646000 


T 


0044 


01647000 


T 


0046 



c 



v_ 



c 



c 



c 
c 
c 
c 
c 
c 



c 

c 
c 
c 
c 



( ) 



v_ 



M0VEWCARYtFNNH0LDtFNNlNr>EX:i»SZ.[36|6),SZ)l 
FNNJNDEX * FNNINDEX + SZ* 

PUT(M,«r,ETfM))l 
XIT? 

fno prtsaveRj 



% ID NOW ASSIGNED 



U 



PROCEDURE SFGOVpJ 
BEGtN 
REAL I, T, A, J, SADRi 



61 IS 



INFO LABPRT? 



01648000 T 

01649000 T 

01650000 T 

01651000 T 

01651100 T 

01652000 T 
57 LONG, 

01653000 T 

01654000 T 

01655000 T 



0048 
0050 
0051 
0051 
0053 
0054 
NEXT SEG 
0492 
0492 

0492 



STACKfF + 2) * I 

STAGKfF+3) a T 

STACKCF + 4) => A 

STACK(F+5) = J 

STACKCF+6) = SA 

STACKCF+7) * IN 
STACKCF+10) s I 



START OF SEGMENT ********** 62 



DR 
FC 
ABP 



U 



< i 



U 



STACKCF+11) 3 SAVI 

IF 

BU 



o 



v_; 



O 



■^j 






RT 
REAL SA 

NS 
FOR T * 
J*FNNHA 

SEGOyFL 

MPPRTj 

IF PRTS 

PA 

IF 

PACKfED 

IF CODE 

ADR ; A 

PACKrED 

if code 
s 

T «• pRG 
FOR I * 
BEGIn T 

whil 
bfgi 

I 

B 



vins; 
1 step 1 until maxnbhang do 

NGtT3*0 THEN BEGIN BUmPPRT » TRACEBACK( J» FNNHANGC T 3*0, PRTS) 
AG * TRUE? 



END; 



o 



E 
T 

End i 



.[37J2 

CKCEDO 

CODET 

OCf EDO 

TOG T H 
DR+1 ? 
OCEEDO 
TOG Th 

ADR «■ 

DESCBL 
STE 
* STA 
E T * 
N IF ( 
F A > 
EGIN 
ADR 
IF L 
BEGI 
BUMP 
P 

fnd; 

WHIL 

BEGI 

S 

F 

E 

A 

END) 

INFO 

NDJ 

♦■ A,L 



]=1 THEN BEGIN 

C[ED0CI3#CT*UXRT[36»38»10J),ADR.[46!23)» 

OG THEN DEBUGfT); ADR*ADR+1 END »' 

CI]« (T*2&PRTS[36*3BHOn. ADR. [4682])) 

EN DEBUg(T): 

CI], (T*1&BFW C36»38H0]), ADR.[46!23>J 

EN DEBUGCT)? 

ADRJ 

DR(2» PRTS, 0, NXAVIL+DJ 

p 1 until shx do 
ckheadci3; 

DO 

A- GET(T)). CLASS = LABELID THEN 

THEN 

«• AtADDR? 

ABPRT * CINFC*GETCT+2))«BASE = THEN 

N 

prt; labprt*prtsi 

UT(T+2, INFC ft PRTSrT0BASE35J 

E adR * o no 

N J * GlT(ADR); ADR * ADR-U 

AVtNS*GIT(ADR+2),[36I10]I 

MIT0PDCLIT(LABPRT)> 

MIT0(SAVINS)J 

DR * J* 

[t.ir.t.icj.addr * 0; 
ink; 



01655100 T 0000 



01656000 
01657000 
01661000 
01662000 
01662300 
01662500 
01662700 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01683100 
01684000 
01684100 
01685000 
01686000 
01687000 
01688000 
01689000 
01690000 



0000 
0001 
0009 
0013 
0016 
0018 
0023 
0026 
0031 
0033 
0034 
0039 
0041 
0042 
0044 
0046 
0047 
0048 
0050 
0051 
0052 
0053 
0057 
0057 
0062 
0064 
0064 
0065 
0067 
0070 
0070 
0071 
0072 
0072 
0077 
0077 
0078 



C 

c 
c 
c 
c 
c 
c 
c 

c 
c 
c 



c 



^ 



c 



<w 



c 



v_ 



o 



L. 



o 
o 
o 



o 



'^ : 



w 



o 



u 



o 



o 



1J 



o 
o 
o 



end; 

FOR I * STEP t until lbranch do 

IF T * - BRANCHESm > AND T < 4096 THEN 

BEGIN 

ADR *■ T-1J 

SAViNS*GlT(ADR + 2),C36H0]; 

bumpprt; emitopoclit(prts)? 
emit0csavins3j 
branchesci) * - (prts+4096); 
end; 

SFGMeNT((SADR + «) OIV 4,NSEG«FALSE»FD0c)J 

sfgmentstaRt; 
emito(NOP)j emitO(NOP); 
segovflag «■ false? 
end segovfj 

procedure aRRaydecm)? value ?j Real u 

begfn % declares arrays whose info tndfx is i 

real prt.lnk»j1 

STACKfF+2) s PRT 

STACK(F+3) = LNK 
STACK(F + A) =5 J 

LABEL X IT ; 
BOOLEAN OWNID; REAL X? 
STACK(F+5) = OWNID 
STACKCF+6) a X 

IF DEBUfiTOG THEN FLAGROUT I NEC" ARRA"»"YDEC ",TRUE ) J 

PRT * getcd.addr; 

IF LNK «• GET(I+2),SIZf = THEN GO TO X I T i 

IF (OWNID *■ PRT < 1536 AND DATAPRT * 0) THEN 
BEGtN 

EM I TOPDCLTTC DATAPRT)> fMITOCLNG)* 

EMITB(-1# TRUE)' X * LAX; 
END) 

EMjT0(MKS)J 

EMlTDESCLlT(PRT); % STACK OR PRT ADDRESS 

IF LNK < 1023 THEN 
BEGtN 

IF OWNiD THEN EMlTL(0)J % LOWER BOUND 

EMITLCLNK)* % ARRAY SIZE 

EMlTLfl)? * ONE DIMENSION 
END 

El.SE 
BEGIN 

J «• (LNK + 255) DIV 256? 

LNK » = 256? ^INCLUDE ENTIRE ARRAY SIZE IN ESTIMATE 

IF OWNID THEN EMITL(0)J % FIRST LOWER BOUND 

EMITLCJ)* % NUMBER OF ROWS 

IF OWNID THEN EMITL(O); * SECOND LOWER BOUND 

FMITLC256); % SIZf OF EACH ROW 

EMITL(2)? % TWO DIMENSIONS 



62 IS 



01691000 T 
01692000 T 
01693000 T 
01694000 T 
01695000 T 
01695100 T 
01696000 T 
01696100 T 
01697000 T 
01698000 T 
01699000 T 
01700000 T 
01701000 T 
01702000 T 
01703000 T 
110 LONG* 
01704000 T 
01705000 T 
01706000 T 



0078 
0081 
0082 
0084 
0085 
0086 
0088 
0093 
0094 
0096 
0098 
0101 
0102 
0103 
0105 
NEXT SEG 
0492 
0492 

0492 



v> 



START OF SEGMENT ********** 63 



*512- 



END{ 



FMITLU)J * ONE ARRAY 

EMITLCIF OWNID THFN 2 FLSE 0); XOWN OR LOCAL 

FMIT0PDCLIT(5)J 3! CALL BLOCK 

ARYSZ * ARYSZ + J + LNK? 



01706010 T 
01706100 T 



01706110 
01707000 
01708000 
01708100 
01708200 
01708300 
01708400 
01708500 
01709000 
01710000 
01711000 
01712000 
01712100 
01713000 
01714000 
01715000 
01716000 
01717000 
01718000 
01719000 
01719100 
01720000 
01720100 
01721000 
01722000 
01723000 
01724000 
01725000 
01726000 
01727000 



0000 
0000 



0000 
0002 
0003 
0007 
0009 
0009 
0011 
0013 
0013 
0014 
0014 
0015 
0016 
0017 
0018 
0019 
0019 
0019 
0023 
0024 
0025 
0027 
0027 
0029 
0030 
0030 
0030 
0031 
0033 
0034 



c 
c 

c 
c 

c 
c 
c 

c 
c 

/— N 

c 
o 
o 
o 
o 



\^ 



o 



^ 



u 



IF N0T(F2T0r, OR OwNlo) THEN 
BEGTN 

F2T0G «- TRUE? 

fMitlcd; 

FMiTPAIR(fPLUS2»STD)JX F+2*TRUE 
ENOJ 

IF OWNJD THEN FlXBfX)) 
XiTJ 
IF DEBUfiTOG THEN FlAGROUT jnE (« ARRA"»"YDEC », FALSE) ; 
END ARRAYDECJ 

REAL PROCEDURE SEARCH(E)? VALUE EJ REAL EJ 
BEGIN RFAL TJ LABEL X IT; 



STACKfF+3) a T 



L) 



v^- 



'w 



U 



L^ 



U 



o 



■u 



V 



t * stackheadce mod shx]j 

whilf t * do 

if inf0[(t+1),!r#(t+1),tc] » £ then go to xit 
else t * inf0[t,ir»t,ic],link} 

xiti search <• tj 

ErND SEARCH? 

TNTFGER PROCEDURE GLOBALSEARCHCF ) I VALUE EJ REAL EJ 
PRT(5A7) = GLOBALSEARCH 

BEGIN R F AL t; LABEL X I T J 



STACKfF+3) s T 



T * r,LOBALSTACKHEAD[E MOD GHXJ) 
WHILF T / DO 

IF lNFO[fT+l).IR,(T +1 ),iC] a E THEN Go TO XIT 
Ei.SE T «. INF0tT,IR»T,lC],LlNKJ 
XITJ GLOBALSEARCH * T; 
END GLORALSEARCH; 



PROCEDURE PURGElNFo; 
PRTC550) - PURGEINFO 

BEGIN RFAL JJ 



STACKCF+2) - J 



STACK(F+3) 9 J 



o 

o 

O 



FLAGf 13)J 

FOR J * STEP 1 UNTIL SHX DO STACKHEADEJ] * 0? 

NEXTiNFO * 2; 

NEXTcOM * 0? 
END) 

INTEGER PROCEDURE FNTFRCW, E)J VALUF W» EJ ALPHA W, EJ 
BEGIN RfAL JJ 



tf gloraLNextinfo < nextiNfo thfn puRgeinfo; 
w.link * stackheadtj ♦ f mod shx]j 

STACKHFADtJ] + ENTER * J - N F XTjNFOj 
!NFOrJilRtJ.lC] * WJ 
INFOf(J«-J + l>.IR.J.IC] * EJ 
INFOrCJ*.J + l)«IR»J.IC] * OJ 
NEXTlNFo * NEXTINFO + 3J 
END ENTFRJ 



01728000 T 


0036 




."-, 


01729000 T 


0037 




L 


01730000 T 


0038 






01731000 T 


0040 




/** «. 


01732000 T 


0040 




^w 


01733000 T 


0041 






01733100 T 


0041 






01733105 T 


0043 




C 


01733200 T 


0044 






01734000 T 


0046 






63 IS 53 LONG. 


NEXT SEG 


6 


C 


01735000 T 


0492 






01736000 T 


0492 






START OF SEGMENT ********** 


64 


c 


01737000 T 


0000 






01738000 T 


0001 




c 


01739000 T 


0003 






01740000 T 


0007 




>— , 


01741000 T 


0011 




c 


01742000 T 


0012 






64 IS 16 LONG* 


NEXT SEG 


6 




01743000 T 


0492 




c 


01744000 T 


0492 






start of segment ********** 


65 


v> 


01745000 T 


0000 






01746000 T 


OOOl 




V— 


01747000 T 


0003 






01748000 T 


0007 




j/— % 


01749000 T 


0011 




l w 


01750000 T 


0012 






65 IS 16 LONG. 


NEXT SEG 


6 




01751000 T 


0492 




c 


01752000 T 


0492 






start of segment ********** 


66 


c 


01753000 T 


0000 






01754000 T 


0000 




o 


01755000 T 


0005 






01756000 T 


0006 






01757000 T 


0007 




o 


66 IS 10 LONG* 


NEXT SEG 


6 




01758000 T 


0492 




o 


01759000 T 


0492 




start of segment ********** 


67 




01760000 T 


0000 




o 


01761000 T 


OOOl 






01762000 T 


0004 




s~~s 


01763000 T 


0007 




o 


01764000 T 


0010 






01765000 T 


0014 






01766000 T 


0018 




o 


01767000 T 


0019 







o 



o 
o 



PRTC551) * 



INTEGER PROCEDURE GLOBALENTERC W, E); VALUE W» El ALPHA Wi E; 
GLOBALENTER 

BEGIN RfAL Jl 



67 IS ?2 UONGf NEXT SEG 
01766000 T 0492 



STACK(F+3) = J 



START 



01769000 

OF SEGMENT 



T 0492 

********** 6B 



o 



O 1 



u 



fnd 



if globalnextinfo < nextinfo then PURGEINFO} 

W.LINK «- GLOBALSTACKHEADCJ * E MOD GHX]J 
GUOBaLSTACKHEADTJ] «• GLOBALENTER * J * GLOBALNEXTINFOI 
iNFOf JjfR.J.lC] «- W? 
iNFOf (J*J+l).lR t J, IC] * El 
lNF0fCJ*vi+l5.lR.J,TC] «■ 01 
GLOBALNEXTlNFO «. GLOBALNEXTINFO « 31 
GLOpALFNTERl 



o 



'v_> 



o 



o 



PROCEDURE LABELBRANCH(K, C)l VALUE K, CI REAL Kl BOOLEAN CI 
PRTf552) = LABELBRANCH 

BEGIN RfAL TS»T»I»X? 

STACKfF+2) = TS 

STACK(F+3) = T 

STACKfF+4) a I 

STACK(F+5) = X 



68 IS 



01770000 T 
01771000 T 
01772000 T 
01773000 T 
01774000 T 
01775000 T 
01776000 T 
01777000 T 
22 LONG* 
01778000 T 



0000 
0001 
0004 
0007 
0010 
0014 
0018 
0019 
NEXT SEG 
0492 



"BRANCH" FROM THE 
IS TRUE 
NOT BEEN ENCOUNTERED 



IF 
IF 



o 

o 
o 
o 

o 
o 



DEFINE i.ABL * K#l 

COMMENT LABELBRANCH GENERATES A "LlTC ,,," AND 
CURRENT ADDRESS TO LABEL K, IF THE BOOLEAN C 
THE BRANCH IS CONDITIONAL, IF THE LABEL HAS 
THEN THF APPROPRIATE LINKAGE jS MADE! 

LABEL XJTI 
IF ADR * 4086 THEN 

BEGIN ADR * ADR+ll SEGOVF fNdI 

IF LaBL «• L8LSHFT(XTA*LABL) < OR LABL s BLANKS THEN 

BEGIN FLAGU35)} GO TO XlT ENDI 

IF T * SEARCH(LABL) * THFN 

BEGIN TS *■ U * GET(T)),AdDR! 

T. CLASS * LABELID THfN BEGfN FLAGC144JI GO TO XI T ENDI 

t > o then 

BEGIN EMITLINK(TS)J 

EMITOC IF C THEN BFC ELSE BFW)I 
PUTcT,i&cADR-j)[ToADDR])I 

emitocnop)! 
end else 
if i, segno - nseg then emitb(ts# c) else 

BfGIm IF TS*(X«-GETCT + 2)),BASE = THEN 

X.BASE *• TS *■ PRGDESCBLDR(?»0»C I , ADDR ) , C 36 S 10 J » I.SEGNO)! 

PUTCT+2»X)J 

EMITOPDCLITCTS)! 

EMITOUF C THEN BFC FLSE BFW)J 
ENDI 
END FLSE 
BfGIN 

IF ADR < THEN EMITOCNOP)} 

EMITLINK(O)! 

EMITOC IF C THEN RFC ELSE BFW)I 

T * ENTERfO & LABELIDCTOCLASS] & ( ADR- 1 ) I TOADDR ] . LABL)I 

EMITOCNOP)! 
END! 



01779000 
START OF SEGMENT 



01780000 
01781000 
01782000 
01783000 
01784000 
01785000 
01786000 
01787000 
01788000 
01789000 
01790000 
01791000 
01791100 
01792000 
01793000 
01794000 
01795000 
01795100 
01796000 
01799000 
01800000 
01801000 
01802000 
01803000 
01804000 
01805000 
01806000 
01807000 
01808000 
01809000 
01810000 
01811000 
01811100 
01812000 



T 0492 

********** 



69 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0007 
0010 
0011 
0014 
0017 
0018 
0019 
0021 
0024 
0025 
0025 
0028 
0032 
0037 
0038 
0039 
0041 
0041 
0041 
0042 
0044 
0045 
0047 
0051 
0052 



c 

c 

r- 

c 
c 

C 

c 

c 
c 
c 
c 
c 



c 
c 
c 
c 



n 



^_^ 



^ 



u 



u 



i-U 



O 



IF XREF THFN ENTFRX(LABL#0&LABEL,!DtTOCLASS]); 
XlT! 

fNd labfLbranch; 

PROCEDURE DATASET; % SCANS CONSTANTS jn BLOCK DATA 
PRTf553) = DATASET 

BEGIN 

real lst»cur»ltyp,ctyp»siz,rpt; 

STACKCF+2) a LST 

STACK(F+3) a CUR 

STACK(F+4> a LTYP 

STACKfF+5) a CTYP 

STACK(F+6) a SIZ 

STACK{F+7) = RPT 



69 TS 



01812100 T 
01813000 T 
01814000 T 
58 LONG. 
01815000 T 



0052 
0054 
0055 
NEXT SEG 
0492 



c 



START 



STACKfF+10) a CUD 
STACKCF + U) a SGN 



RFAL CUD; 
BOOLEAN SgNJ 



O 

o 
o 
o 
o 

\J 

o 

(J 

o 
o 
o 

o 



dffine typ a globaln f xt#» 

Typp — l8t^38l5#» 

LABEL X!T,FRR0R#0PP»SPP»CPP»C0MM,Sl 
IF OEBUrTOr THEN FLAGR0UT I NE C» DATA"» M SET %TRUE ) J 
DATATOr «■ TRUE; FtLETOr * TRUE^ 
SCAN? 

LSTS *■ -H LTYP *77l 
SJ if TYP a PLUS OR fSGN «• TYp = MINUS ) THEN SCAN? 

if typ a num then 



begin 

BEGIN 



ENDJ 



BEGIN 



IF NUMTYPE a STRINGTYPE AND STRINGSIZE > 1 THEN 

IF LTYp * 17 THEN 

BEGIN % NOT FIRST ENTRY-PUSH DOWN PRIOR NUMBER 

IF LSTS+2 > LSTMAX THEN 

BEGIN FLAG(127)J GO TO ERROR END? 

LSTT£LSTS*LSTS+1] * RPT&LTYPtT YPC ] I 

LSTT[LSTS*LSTS+1] «• LSTJ 

LTYP * 771 
END! 

IF LSTS + STRINGSIZE > LSTMAX THEN 
BFGIN FLAGC127); fi TO ERROR END! 

LSTTttSTS*LSTS+n * STRINGSIZE & STR I NgTYPET TYPC ] 

& SIZ[3J33!15]I 
MOVEW(STRlNGARRAY*LSTT[LSTS*LSTS+n* 
STRlNGSlZE.t36?6],STRlNGSlZE)l 

lsts «• lsts + stringsize - ii 

Scan; 

go to comm; 

% got number 

IF NUMTYPE a STRINGTYPE THEN 

FNEXT * STRINGARRAYC03 J 
NUMTYPE * INTYPEI 



01816000 

01817000 

OF SEGMENT 



T 0492 
T 0492 

********** 
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01818000 T 0000 
01819000 T 0000 



01820000 
01821000 
01822000 
01823000 
01824000 
01825000 
01826000 
01827000 
01828000 
01829000 
01830000 
01831000 
01832000 
01833000 
01834000 
01835000 
01836000 
01837000 
01838000 
01839000 
01840000 
01841000 
01841100 
01842000 
01843000 
01844000 
01844100 
01845000 
01846000 
01846100 
01847000 
01848000 
01849000 
01850000 
01851000 
01851100 
01851200 
01851300 



0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 
0005 
0006 
0010 
0011 
0011 

0013 
0013 
0014 
0015 
0016 
0020 
0022 
0025 
0025 
0025 
0025 
0027 
0028 
0031 
0032 
0034 
0036 
0037 
0038 
0038 
0038 
0038 
0039 
0040 
0041 



C 

c 
c 

c 
c 



v — ' 

c 
o 
o 
o 
o 
o 
o 
o 
o 

c 



o 



u 



o 



IF SlZ s o THEN Si Z 



END; 



II 



CUR * IF SGN THEN -FNEXT ELSE F'NEXTI 
CTYP * NUMTYPE? CUD * DBLOW? 



SCAN} 



\j 



o 



IF 
BEGtN 

IF 
IF 
BEGtN 

DPP? TF 



TYP ■ COMMA OR TYP s SLASH THEN 

siz = o then siz * n 
ctyp s doubtype then 



then 






C 

o 

G 



END} 
SPP; 



.— 1 

o 
o 
o 
o 
o 
o 



end? 



end; 



end; 
rpt&ltypctypcj; 
LSt; 



LTYP * 77 
BEGIN 

IF LSTS+2 > LSTMAX THEN 

BEGIN FlAGM?7); GO TO ERROR 
LSTTUSTS*L.STS + l] 
LSTTtLSTS*tSTS+n 
LTYP * 77i 
f m n * 

IF LSTS + 3 > LSTMAX THEN BEGIN ELAGU27)? 
LSTTCLSTS*LSTS + U * S I Z&DOUBTYPE[ T YPC 3 ; 
LSTT[LSTS*LSTS+1J «- CUR} 
LSTTtLSTS * LSTS + 1] * CUd; 
GO TO comm; 

3! SINGLE PRECISION 

IF LTYP s 77 THEN 
BEGIN 

LST «* CUR? 
LTYP * CTYP; 
RPT ♦• SiZ; 

go to comm; 
end; 
if ltyp = ctyp thfn 
if real(boolean(cur) 

BEGIN 

RPT «• RPT + 
GO TO COMM; 
END? 
IF LSTS+2 > LSTMAX T H EN BEGIN FLAGfl27>? 
LSTT[USTS*LSTS+1] - RPT&LTYPf" TYPC 3 ? 
LSTT[LSTS*LSTS+1] «• lST; 
RPT «■ SI Z J 

lst + cur; ltyp «• ctyp? 
go to comm; 



GO TO ERROR END? 



EQV BOOLEAN(LST)) a REALCNOT FALSE) THEN 

siz; 

GO TO ERROR END? 



IF 
IF 

IF 

BFGIN 

SCAN? 



% TYP * COMMA * CHECK FOR * 
TYP / STAR THEN BfGtN FLAGC125)? GO TO ERROR END? 
CTYP t INTYPE THFN BEG|N FLAGC113)? GO TO ERROR END? 
SIZ ^ OR SIZ * CUR < THEN 
GO TO FRROR END? 



FLAG(64)? 
GO TO S? 



% TYP * NUM AT LABEL I 

if siz s o then Siz * 1? 

TF NAME = «T » OR NAME 



- np 



then 



01B51400 
01851500 
01852000 
01853000 
01854000 
01855000 

01856000 
01857000 
01857100 
01858000 
01859000 
01860000 
01861000 
01862000 
01863000 
01864000 
01865000 
01866000 
01867000 
01868000 
01869000 
01870000 
01871000 
01872000 
01873000 
01874000 
01875000 
01876000 
01877000 
01878000 
01879000 
01880000 
01881000 
01882000 
01883000 
01883100 
01884000 
01885000 
01886000 
01887000 
01888000 
01889000 
01890000 
01891000 
01892000 
01893000 
01894000 
01895000 
01896000 
01897000 
01898000 
01899000 
01900000 
01912000 
01913000 
01913050 
01913100 



T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0041 
0043 
0043 
0046 
0047 
0047 
0048 
0050 
0050 
0052 
0053 
0053 
0054 
0055 
0056 
0058 
0061 
0063 
0064 
0064 
0067 
0069 
0072 
0074 
0074 
0074 
0074 
0075 
0075 
0076 
0077 
0077 
0078 
0079 
0079 
0079 
0081 
0082 
0083 
0084 
0084 
0087 
0089 
0092 
0092 
0094 
0094 
0094 
0094 
0097 
0099 
0102 
0103 
0104 
0104 
0104 
0106 



^ 



o 



C 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



L. 



:'J 



'^_> 



G 



BEGtN 

END; 
Cppj 



CUR * REALfNAME = "T 

ctyp * logtype; 

SCAN? GO TO SPp; 



«>; 



if typ * lparen then begin flagc64); go to error end; 



u 



O 



V_' 



w 



o 



~w* 



o 



u 



o 
o 
o 

o 



PRTC554) = 



* COMPLEX 
IF LTYp t 77 THEN 
BEGIN 

IF LSTS+2 > USTMAX THEN 

BEGIN FLAGC127); GO TO ERROR END? 

LSTT[LSTS*LSTS+n «- RPT&LTYP[ TYPC 3 ; 

LSTT[LSTS*LSTS+1] * LST; 

LTYP * 771 

end; 
scan; 

if typ s plus or (sgn«-typ = minus) then scan; 
if typ * num or numtypp > realtype then 

BEGIN FLAGC64); GO TO ERROR END* 

IE LSTS+2 > LSTMAX ThEN BEGIN FLAGC127); GO TO ERROR END> 

LSTT[LSTS«-LSTS+13 * S I ?&COMPTYPE[ TYPC ] I 

LSTTrLSTS«-LSTS + l] <- tF SGN THEN -FNEXT ELSE FNEXT5 

scan; 

if typ * comma then begin flagc1143i go to error end* 

SCAN? 

IF TYP s PLUS OR (SGn «. TYp = MlN^S) THEN SCAN? 

IF TYP t nUM OR NUHTYPE > REALTYPE THEN 

BEGIN FLAG(6«); Go To ERROR END* 

|.,STTtLSTS*LSTS + l]«-IF SGN ThEN - FNEXT ELSE FNEXT ; 

SCAN? 

if typ * rparen then begin flagc108); go to error end; 
scan; 
comms 

siz «- o; 

IF TYP s COMMA THEN BEGIN SCAN* GO TO S; END; 
IF TYP - SLASH THEN f,0 TO XITJ 
FLAGC126); 
ERROR! 

LSTS «■ 0; 

WHILE TYP * COMMA AND TYP * SLASH AND TYP / SEMI DO SCAN; 
IF TYP 9 COMMA THEN r,0 TO cOMM? 
XlT; 

IF LTYP * 77 THEN 
BEGIN 

IF LSTS+2>LSTMAX THEN BFGlN FLAGC127)! LSTS*0 ENo$ 
LSTTtLSTS*LSTS + i] «- RPT&LTYPrTYPC ] t 
LSTT[LSTS*LSTS+1] * lst; 
END? 
IF LSTS + i > LSTMAX T H EN BEgIN FLAG<127>! LSTS «. END; 
1,STT[LSTS*l.STS + U -0; 
IF DEBUGTOG THEN F|.AGRoUTInE(« DATA"»"SET »,FAlSE) ; 

DATATOG *■ FALSE? FILETqG «• FALSE; 
END DATaSET; 

ALPHA PROCEDURE CHECKDO; 
CHECKDO 
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o< 


1913200 


T 





108 





L913300 


T 





09 


0- 


t 9 1 3400 


T 





110 


0' 


1913500 


T 





111 





1913600 


T 





114 





1914000 


T 





114 





1915000 


T 





116 





1916000 


T 





116 





1917000 


T 





117 





1918000 


T 





117 





1919000 


T 





118 


01 


[920000 


T 


0' 


119 


0] 


L921000 


T 


0< 


121 


0, 


1922000 


T 





L24 


0' 


1923000 


T 





126 


0' 


1924000 


T 





127 





1925000 


T 





127 


0] 


1926000 


T 


0. 


127 


0! 


1927000 


T 


0' 


[30 


0] 


[928000 


T 





132 


01 


[929000 


T 


01 


[34 


01 


1930000 


T 


Oi 


137 


01 


[931000 


T 


01 


[40 


01 


[932000 


T 





144 


01 


L933000 


T 


01 


[44 


Oi 


1934000 


T 


0< 


147 


01 


1935000 


T 


01 


[47 


01 


1936000 


T 


01 


150 


01 


[937000 


T 


01 


152 


01 


1938000 


T 


o: 


154 


0] 


1939000 


T 


01 


L58 


01 


1940000 


T 


01 


158 


01 


[941000 


T 


0< 


161 


01 


[942000 


T 


01 


161 


0! 


1942100 


T 


0! 


162 


01 


1943000 


T 


0] 


[62 


01 


1944000 


T 


0! 


[65 


01 


[945000 


T 


0' 


[66 


01 


[946000 


T 





167 


01 


[947000 


T 


01 


L67 


01 


[948000 


T 


0' 


167 


01 


L949000 


T 


01 


172 


01 


[950000 


T 


o: 


173 


01 


[951000 


T 


0< 


174 


0] 


1952000 


T 


01 


174 


01 


.953000 


T 


0] 


175 


01 


[954000 


T 


01 


178 


01 


1955000 


T 


01 


[81 


Ol 


[956000 


T 


0] 


183 


01 


.957000 


T 


0] 


83 


01 


958000 


T 


0] 


[86 


01 


959000 


T 


01 


89 


01 


960000 


T 


01 


191 


0: 


1961000 


T 


01 


193 
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NEXT SEG 
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962000 


T 
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c 
c 
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r^ 
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c 
c 
c 
o 
o 
o 
o 
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c 

c 



^ 
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BEGIN ALPHA X. T? iNTFGER N? 

STACKfF+3) = X 
STAC«(F+4) = T 
STACK(F+5) = N 

STREAM PROCEDURE CKDO(At ID. LAB)* 
PRT(555) s CKDO 

BEGIN 

Si * A? Si *■ Si+4? 01 * LAB? DI «• DI+2; 
5CIF SC * "0" THEN DS * CHR FLSE JUMP OUT)? 
DI * ID? DI «* DT+2? 

6CIF SC s ALPHA THEN DS *. CHR ELSE JUMP OUT)? 
END CKDO* 

IF fXTA«.H0LDlDC0]).[l2*?/n = "FILE" THEN FL0GC37) ELSE 

IF XTA,C1J>I123 * "DO" THEN FL0&C17) ElSE 
BEGIm 

X * T «• BLANKS? 
CKDO(HOLDIDCOJ» X, T}? 

IF X=BLANKS THEN FL0G<105>? 
IF T + LBLSHFT(T) < OR T - BLANKS THEN FL0GC17) ELSE 
TfST * NEEDCT. LABELID)? 
D0LABCDT3 * T? 
IF XREF THEN ENTERX( T . O&LABEL ID [ TOCLASS ] ) ? 

IF GETCTeST) < THEN % TEST FOR PREV DEFINITION 
BFGIN 

XTA «■ GET(TEST+1)J 

FLAGC15)? 

DT * DT-l? 
END? 

IF N 4- SEARCH(X) b THFN 

N*ENTFR(TlPErIF T-X , r 1 2 ; 6 ] #"0» THEN T ELSE 123. X) J 
ChECKDO «• GETSPACEtN)? 

IF XREF THEN FNTeRX(X»UGfTcN) [15»15|9])J 
IF fX*6ET«N)). SUBCLASS > REALTYPE OR X. CLASS * VARlD THEN 
BFGIN XTA «. GET(N+i)? FliAGCBa) END? 

IF GET(FXi), CLASS s UNKNOWN THEN PUT(FXi + 1» ",,,,,,!,); 
END? 
END CHECKDO? 

PROCEDURE FIXB(N)? VALUE N? REAL Nl 
BEGIN 

REAL Tt U* FROM? 

STACKCF+2) a T 
STACK(F+3) a U 
STACKCF+4) s FROM 

LABEL XlT. BIGJ? 
IF DEBUrTOR THEN FLAGROUTINEC" Fl"»"XB ".TRUE ) ? 
IF N > JOOOO THFN FROM * N-10000 ELSE 
IF FROM * - BRANCHESfN] > 4095 T H EN 
BEGIN 

ADJUST? 

T * PRGDESCBLDRC2. FRQM;LiNK, (A0R+1).C36M03» NSEG)? 
GO TO X it; 
END? 
T * ADR? ADR * FROM - 1? 

if fT + i):m6?2j s o then go to bigj? 



START 



01963000 

of sfgment 



T 0492 

********** 



71 



01964000 T 0000 
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01965000 T 
01966000 T 
01967000 T 
01968000 T 
01969000 T 
01970000 T 
01971000 T 

01971010 T 
01972000 T 

01973000 T 
01974000 T 
01974500 T 
01975000 T 
01976000 T 
01977000 T 
01977100 T 
01978000 T 
01979000 T 
01980000 T 
01981000 T 
01982000 T 
01983000 T 
01984000 T 
01985000 T 
01987000 T 
01987100 T 
01988000 T 
01989000 T 
01990000 T 
01991000 T 
01992000 T 
63 LONG. 
01993000 T 
01994000 T 
01995000 T 



0000 
0000 
0001 
0003 
0003 
0006 
0006 
0010 
0014 
0016 
0017 
0018 
0020 
0025 
0027 
0028 
0031 
0032 
0033 
0035 
0035 
0037 
0037 
0038 
0044 
0045 
0048 

0052 
0055 
0059 
0059 
NEXT SEG 
0492 
0492 
0492 



START OF SEGMENT ********** 
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01996000 
01996010 
01997000 
01998000 
01999000 
02000000 
02001000 
02002000 
02003000 
02004000 
02005000 



0000 
0000 
0002 
0004 
0009 
0010 
0010 
0014 
0016 
0016 
0018 



U 



■w 



L,. 



C 



c 

c 
o 
o 



o 
o 
o 
o 
o 
o 
o 

c 



L 



O 



W 



( \ 



o 



u 



o 



TF fU «- T - ? - ADR) < 1O23 ThEN EMfTL(U) ELSE 
BEGIN APR *• T; ADJUST; T *■ ADR* ADR * FROM - \i 
BIGJ5 EmIT|,((T+i), [36*103 » C ADR + 2 ) . [ 36 5 10 ] ) * 

EmIToCIF BOOLEANCGlTCFRoM + 1 ) , t 36 1 1 ] ) THEN GFW ELSE GFC); 

end; 

ADR * T; 
X IT S 

IF N < 10000 THEN BEGIN 
8RANCHESCN3 * BRANCHX; 
BRANrHX «• NJ 
END? 
IF DEBUrTOG THEN FLAGROUTI NE C " FTVXB "*FALSE) ; 

end fixr; 



STACKfF + 2) =. D 
PRTf556) b T 



•u 



U 



PROCEDURE DATIME; 

begtn 
intfger d ; 



FORMAT T(X9»"B 5 7 
"XV 1,0" 



?! PRODUCES HEADING LINE FOR LISTING, 



FORTRAN 



COMPILATION 
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START 



START 



» M , '»» A2 »'»»»♦ »A8»»D AY # »»?r A? »"/"), A?, »♦»»', A2n«»;»» A?» ,! H, rt /)J 

S999- 



o 



o 
o 
o 
o 

o 
o 
o 

o 



PRT(557) = INPUT(H) 



WR!TALISTCT#7, 
"1*" 

»TlMEC6)»(0*TIMEC5)).tl2il23»D,C2ftllZ]tD.C36ll23» 
D*(D*RTI DIV 216000) MOD 10 + D D IV 10x64* 
0*CD*RTI DIV 3600 MQD 60) MOD 10+D DIV 10x64*0) ; 
IF n«-LINE,TYPE = 10 OR Dsl2 OR D«l3 THEN 
BFGIN 

LOCKCLINE); LINE,AREAS*0J LI NE , AREAS I ZE*0 ; 
IF D*12 THEN LINE.TYPE*12| SPACEC L I NE » 2 ) ; 

END ; 
FIRSTCALL«-FALSE 5 
END DATIME! 
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PRTC560) b MOVF 



PRTC561) s MOVEBACK 



PROCEDURE PRINTCARDJ 
BEGIN 

STREAM PROCEDURF MOVeCP, Q, a)* VALUE A* Q; 



BEGIN 

S T * 01 DI * P* 

DS «■ CHR? 

Dt «• Dl + lll Si * loc a; 

DS * 4 dec; 
end move; 
stream procedure movebackcp); 



73 



START 



BEGIN DI «- P; DS * LIT »]" END? 

MOVf eCRD[9]»BUFL»CADR+l).t36SlO]); 
IF FfRSTCALL THEN DATIME; 
IF UNPRjNTED THFN WRlTAR0W(15*CRD) ' 

M0VfBACK(CRD[9])) 



02006000 


T 


0020 


_. 


02007000 


T 


0023 


L. 


02008000 


T 


0027 




02009000 


T 


0031 


f~y 


02010000 


T 


0035 


w 


02011000 


T 


0035 




02012000 


T 


0035 


»-^ 


02013000 


T 


0036 


c 


02014000 


T 


0037 




02015000 


T 


0038 




02016000 


T 


0039 


c 


02016010 


T 


0039 




02017000 


T 


0041 


c 


S 47 LONG* 


NEXT SEG 6 


02018000 


T 


4 92 




02019000 


T 


0492 




02020000 


T 


0492 


c 


OF SEGMENT 


********** 73 




02021000 


T 


0000 


c 
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********** 74 




02022000 


T 


0000 


c 


02022500 


T 


0000 
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NEXT SEG 73 




02024000 


T 


0000 


c 


02025000 


P 


0001 




02026000 


T 


0001 




02027000 


T 


0005 


C 


02028000 


T 


0009 




02029000 


T 


0014 


/"""> 


02030000 


T 


0019 


c 


02031000 


T 


0020 




02032000 


T 


0027 


c 


02033000 


T 


0034 


^^ 


02034000 


T 


0034 




02039000 


T 


0036 


c 


S 44 LONG. 


NEXT SEG 6 
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T 
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02041000 


T 


0492 





02042000 


T 


0492 
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********** 75 
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T 
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02044000 


T 


0000 
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02045000 


T 


0000 





02046000 


T 


0000 




02047000 


T 


0001 





02048000 


T 


0001 


02049000 


T 


0001 




02050000 


T 


0001 





02051000 


T 


0003 




02052000 


T 


0005 




02053000 


T 


0007 





02054000 


T 


0010 





o 



L. 



w 



L 
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■^j 



r\ 



O 



u 
O 
O 
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o 



o 
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o 
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IF SfQeRRORS THFN WRlTAROW(UfERRORBUFF) ; 

fno printcaRd; 

boolean procedure readacard! forward* 

PRTf562) = READACARD 

PROCEDURE FILEOPTION? FORWARD* 
PRTC563) = FTUEOPTiON 

BOOLEAN PROCEDURE LABELR! 
PRTf564) = LABELR 

BEGIN 

LABEL X|T, LOOP> 

BOOLEAN STREAM PROCEDURE CHECKCCD* LAB); 
PRTC565) = CHECK 

BEGIN LABEL X IT; LOCAL Til 
SI «• CDl 
IF Sc * " " THEM IF SC < "0" THEN 

BEGIN DI «- LABJ DI * DI + 21 

DS * 6 CHRJ GO TO XiTl 
END! 
DI «-LOC Til DS * 6 LIT " »; D I * D I - 6> 

5(if sc > "0" then ds * chr else si «■ si + n; 

DI *LABJ DI «-Dl + 21 Si * LOC Tl ; 
5(IF SC * "0" THEN JUMP OUT; Si * SI + 1)1 

5cif sc * "0" then ds * chr else jump out); 

TALLY * II 

XITS CHFCK * TALLY! 

end check; 

BOOLEAN STREAM PROCEDURE BLANkC ARD( CD ) I 
PRT(566) = 8LANKCARD 

BEGIN LABEL XiTl 

Si * CDI 

?(36r IF SC * « « THEN JUMP OUT ? TO XjT ELSE SI * SI ♦ l))? 

TALLY «• ll 

XI T J BLANKCARD * TALL Y I 

END blamkcard; 
LOOP; 

labl * blanks; 

ie labelr *■ not readacard then go to xi t j 

IF NOT CHECK(CRDt03»LABL) THEN 
BEGIN IF LABL = "FILE " THEN FILEOPTION ELSE 

BFGIN IF LISTOG THEN PRlNTCARDl 

IF CXTA «• LABL), [12?63 * "C" THEN FLAGC135)! 

END! 

GO TO loop; 
END! 
IF ENDSFGTOG THEN IF BLANKr. ARD( CRD ) THEN 

BfGIN IF LISTOG THEN PRtNtCARd* GO TO LOOP END FLSE 

BEGtN segmentstaRti 

IF LTSTOG THFN PRlNTCARn? 
IF LABL = BLANKS THEN GO TO XfT; 
END FLSF 
BEGIN 

IF LABL = BLANKS THEN 

BEGIN IF LISTOG THEN PRlNTCARDl GO TO X I T END! 
IF ADR > THEN' ADJUST; 



02054010 T 0011 

02055000 T 0013 

75 IS 14 LONG* NEXT SEG 

02056000 T 0492 

02058000 T 0492 

02059000 T 0492 

02060000 T 0492 

02061000 T 0492 

02062000 T 0492 

START OF SEGMENT ********** 

02063000 T 0000 
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02064000 
02065000 
02066000 
02067000 
02068000 
02069000 
02070000 
02071000 
02072000 
02073000 
02074000 
02075000 
02076000 
02077000 
02077100 

02077200 
02077300 
02077400 
02077600 
02077700 
02077800 
02078000 
02079000 
02080000 
02081000 
02082000 
02083000 
02083100 
02083200 
02084000 
02085000 
02086000 
02086500 
02087000 
02088000 
02089000 
02090000 
02091000 
02092000 
02093000 
02094000 



0000 

0000 
0000 

0001 

0002 

0003 

0003 

0004 

0006 

0007 v 

0009 

0011 

0011 

0012 
0013 

0013 
0014 
0014 
0017 
0017 
0018 
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0025 
0027 
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c 



— 1 

c 
c 
c 
c 



c 
c 
c 
c 
c 

c 



o 



v_- 



^. 



STACKfF+iO) = record 
O STACKfF+iD a block 



BLOCK* % BLOCK SIZE 12 02M7000 T OOOO 

SAVER. X SAVE FACTOR 12 02148000 T 0000 



O 



^J 



O 



'""" > l 



IF LISTOG THEN PRINTCARD; 
'J END* 

XITl 

END LABFLR) 

l ^ 76 IS 55 LONG, NEXT SEG 6 O 

procedure fileoption; 

BEGIN COMMENT THIS PROCEDURE PROCfSSES THE OPTIONAL FILE CONTROL CARD, . ... 

O THE WORn "FILE" APPEARS IN COL. 1 • 4. COL, 5 AND 6 ARE BLANK, 02120000 T 0492 O 

#1 BELOW IS REQUIRED. OTHER ENTRIES MAY BE AS SPARSE AS DESIRED, 

1, FILE <NUM> = <MULTI-FILE TD> / <FILE ID> 
O OR 

FILE <NUM> s <FILE ID> 

ThE following V" IS a dOcummfntaRy OR. 
U the sequence of Reserved words must be maintained, 02126000 t 0492 U 

2, UNiT=PRtNT/ReADfR'PUNCH/DISK/TAPf7/TAPe9/RemOTE (UNIT DESIGNATE). 

3, UNLARELED CF0R UNLABELED TAPeS) 
^ 4. ALPHA (FOR ALPHA RECORDING MODE) 02129000 T 0492 ^ 

5. BCL (IGNORED* FOR 3500 USe) 

6. FlXEn (IGNORED. FOR 3500 USe) 
O' 7, SAVE * <NUM> (SAVE FACTOR IN DAYS) 02132000 T 0492 ^ 

8, LOCK (LOCK FILE AT EOJ) 

9, RANDoM/SERlAL/UpDATE (DISK USE) w r , ,*,„„* ,, „.,,* 
^ 10, AREA = <NUM> (DISK RECORDS/roW) 0?135000 T 0492 ^ 

u, blocking = <nUm> (record per block) 

12, RECORD e <NUM> (RECORD SIZE) 
O 13, BUFFER - <NUM> (# OF BUFFERS) 02138000 T 0492 ^ 

14, WORKARFA (IGNORED. FOR 3500) ; 
ALPHA P,KEFPJ BOOLEAN TOG»CA»TS; LABEL XITJ 



02095000 
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02096000 


T 
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02116000 


T 


0051 


021 17000 


T 


0052 
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02120000 
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021 30000 
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021 32000 
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021 34000 
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02135000 
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02136000 
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02137000 
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02138000 
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02139000 
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0492 


02140000 


T 
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SEGMENT 


********** 



START OF SEGMENT ********** 77 O 



STACK(F+2) = P 
STACK(F+3) a KEEP 
O STACK(F+4) a TOG O 

STACK(F+5) = CA 
STACK(F+6) 3 TS 
O COMMENT INXFIL = INfC.ADtNFO, MULTl FILE ID = F I LE I NFO [ 1 , INXF IL J , 02141000 T 0000 O 

FILF ID a FILFINF0C2. INXFIL], DISK RECORDS s F I LE I NF0[ 3 , I NXFI L3 , 02142000 T 0000 
FlLFlNF0t0,iNXFIL3 FROM RIGHT TO LEFT IS! 02143000 T 0000 

O INTEGER % NAME USf BjTS 02144000 T 0000 O 

BUFF. % # BUFFERS 6 02145000 T .0000 

STACKrF+7) = BUFF _ 

) Record, % record s t ze 12 02146000 t 0000 O 



O 



STACK(F+12) p SAVER 

O spin. % rew & lock » eoj 2 02149000 t 0000 O 

STACK(F+13) s SplN 

ALPH? % RECORDING MODE 1 02150000 T 0000 ._ 
U STACK(F+14) = ALPH O 

PROCEDURE FETCH? 02151000 T 0000 
PRT(567) = FETCH 

O BEGIN ScANI XTA * SYMBOL? 02152000 T 0000 O 

Ip NEXTcCOMMA OR NEXTsMlNUS THEN 02153000 T 0001 

BFGIN SCAN; XTA * SYMBOL; 02154000 T 0003 

U IF NEXT * ID THEN FL0G(37)J 02155000 T 0004 O 

END; 02156000 T 0006 



O 

O 



u 

o 
c 
o 
o 
o 
o 
o 



o 
o 

o 



o 
o 
o 
o 
o 
o 
o 



PRT{570) s 



PRT(571) a 



FND FETr 
INTEGER 
MAKEINT 

BEGIN La 

SI «• XTa 
LOOPS t 

BEn 

t * tall 

END MAKF 
INTEGER 
REPLACEMENT 
BEGIN 

fetch; 

BEGIN Ff 

fe 

END ELSf 
END REPl, 
INTEGER 



HI 

STREAM PROCEDURE M A KE t NTC XT a ) ? 



BEL LOOP? LOCAL TJ 

J Si * Si + 2; 

F SC > "0" THEN 

IN TALLY •■ TALLY + If 

y; Si «• xta; si *■ S| 

INT? 

PROCEDURE REPLACEMENT; 



si * Si + 1; GO TO loop end; 

+ 2; DI * LOC makeint; DS «- T OCT; 



IF NEXT = EQUAL THEN 
TCHJ IF XTA, [1216] < ii THEN BEGIN REPLACEMENT * MAKE I NTC XT A ) i 
TCH END ELSE FL0G(37); 

FL0GC37); 

acemenT; 

STREAM PROCEDURE SRI7(S)| 



PRTC57?) s SRI7 



BEGIN S T 
ST 
END SRI7 
COMMENT 
IF DEBUr, 
FRRORTOr 
IF LISTO 
XTA «■ "f 
IF NSfG 
IF iNXFT 
BEGIN Ft, 
BUMPPRT; 
MAXFILES 
FILETOG 
FETCH; 
IF 

IF T * G 

ELSE BEG 



END 
INFC * G 

fetch; 

BEGIN 
IF NEXT 
BEGIN F|„ 
ELSf 

fetch; 

Bf 



* s; DI * LOC SRi7; 

* Si + 2; DI *■ Di + l; 



ds * 7 chr; 



* * * * * START OF COnE * * * * ; 

tog then flagroutinfc" f i leo" » "pt i on ".true > 
«■ false; 
g then prjntcard* 

ILF "' 

t THEN FLAGC60); 

L * INXFIL + 1 > MaXOPFtLES THEN 

AGf59)J go TO XlT end; 



* MA 
«. TRU 
IF XT 
XTA.C 
LOBAL 
IN P* 
PU 
IF 

; 

ET(P 
IF N 
FLOG 

= SEM 

AG (37 
FILE 
IF N 

GIN F 
F 
I 



XFILES + i; 
e; SCN «• 1? 
A,U2«6] > 11 THEN 

12J63 s THEN BEGIN ruu»v«jf;» «u iu ah 
SEARCHCP *■ 0&'S"[l?}42»6]&XTAtl8M2«30]) * 
R(-0&PRTSCTqADDR]8FILEID[T0CLAS 

xOvoI.iYr-TI rrnmlurnlM 



% START SCAN MAINTAINENCE 

BEGIN FLAG(37); Go To XIT END; 
FL0GC037); GO To XIT End ; 
.,,,., -_ , .... . .2l63&XTAtl8tl2l303) * THEN FLAGC20) 

GL0BALENTER(-0&PRTSCTqADDR]8FILEID[T0CLASS]»P); 
Tfp + 2#GET(P + 2)&INXFIL!:T0ADINF03); 
XREF THEN ENTERXCXTA U C TOCE 3 . 1 &F I LE I Ot TOCLASS] 3 ; 



+ 2)1 

EXT = EQUAL THEN FETCH ELSE 

(37); GO TO XIT; END; 

I THEN 

); GO TO XI T END 

INFO!?. INXFIL] * SRl7(ACCUMtl])J 

ext s slash Then 

ileinfori. inxfil] * f i lei nfo [ 2 , 1 nxf i u3 » * multj filf id 

etch; 

F NEXT = SeMI THFN BEGIN FLAG(37); GO TO XlT; END 

ELSE FlLElNF0r?»INXFlL3 «• SRl 7( ACCUM[ 1] ) ; 
ETCH? 



F 

id; 
♦•unit » t H en 



em( 

IF XTA ; 
BEGIN 

FETCH? 
IF NEXT 9 EQUAL THEN FETCH ELSE Fl0G(37)? 
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0026 
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[76000 
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0027 


021 


.76010 
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0027 


02 
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0030 
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[77000 
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0030 


021 
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0032 


021 
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0033 
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180000 


T 
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181000 
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0037 
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82000 
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0042 
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0045 
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0047 
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021 


85010 
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0060 


021 


.88000 
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c 



c 
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c 

c 
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INFC.LINK *. KEEP * (IF TOG * XTA = "PRINT " 02207000 T 0101 ^ 

OR XTA - "PRlNTE" THEN 18 ELSE 02208000 T 0102 ^- 

IF CA * TOG «- XTA = "READ " 02209000 T 0105 

OR XTA = "READER" THEN 2 ELSE 02210000 T 0105 

IF CA «- TOG * XTA = "PUNCH " THEN ELSE 02211000 T 0109 ( ~ 

IF TOG * XTA a "DISK " THEN 12 ELSE 02212000 T 0112 

IF TOG * XTA b "TAPE " 02213000 T 0115 

OR XTA = "TAPE7 " THEN 2 ELSE 02214000 T 0115 C 

IF TOG * XTA = "PAPER " THEN 8 ELSE 02214100 C 0118 

IF CA *TOG*XTA= "REMOTE" THEN 19 ELSE 02214500 T 0121 

^ !F TOG «■ XTA « "TAPE9 " THEN 2 ELSE 2); 02215000 T 0124 ^ 

IF TOG THEN FFTCH ELSf FL0gC37) 02216000 T 0128 

END ELSf INFC.LINK«.KEEP*IF DCfNPUT THEN 12 ELSE 2 i 02217000 T 0142 

- ! TS*KEEPsl2 * 02217050 T 0147 ^ 

TF XTA-»BACKUP" ThfN 02217100 T 0148 

BEGIN 02217150 T 0149 

v.' FETrHJ IF KFEP/O AND KEEP*l8 THEN FLAG(37) ; 02217200 T 0150 C 

jf tOg*xta-"disk " then kefP*if keep=o then 22 else 15 02217250 t 0153 

ELSf IF T0G-XTA=;"TAPE » THEN KEEP.-IF KEEP=0 THEN 20 ELSE 6 02217275 T 0i57 

O ELSE BEGIN 02217300 T 0l64 '- 

ToG*XTA=«ALTERN"J KEEP*IF KEEPsO THEN 25 ELSE 16 J 02217350 T 0167 

END J 02217400 T 0171 

G IF TOG THEN FETCH; I NFC , L I NK*KEEP i 02217450 T 0171 G 

FND J 02217500 T 0174 

IF XTA = "UNLABE" THEN * FqR UNLABELED TAPES 02218000 T 0174 

G BFGIN IF KEEP « 2 THEN INFC ,LINK * 9; FETCH; END? 02219000 T 0174 G 

IF XTA = "ALPHA " THEN FETCH ELSE IF KEEP * 2 THEN ALPH * 1J X MODE 02220000 T 0178 

IF XTA = "BCL " THEN FETCH; % FOR B3500 02221000 T 0186 

O IF XTA b "FIXED " THEN FETCH; % FOR B3500 02222000 T 0187 G' 

IF XTA = "SAVE " THEN SAVER - REPLACEMENT; 02223000 T 0189 

IF XTA e "LOCK " THEN BEGIN SPIN * 2; FETCH END; X REW & LOCK AT EOJ 02224000 T 0191 

O IF TOG *• XTA b "RANDOM" THEN T «- 10 ELSE 02225000 T 0194 C 

IF TOG «* XTA = "SERIAL" ThEN T * 12 ELSE 02226000 T 0196 

IF TOG * XTA = "UPDATE" ThEN T «• 13; 02227000 T 0205 

G TF TOG THEN 02228000 T 0209 G 

BEGIN IF KFEP=12 THEN INFC.LINK*T ELSE FLAGC37)* FETCH END ; 02229000 T 0209 

IF XTA = »'AREA " THEN 02230000 T 0216 

G BEGlN 02230010 T 0217 G 

if kefp/12 then flagc37j; 02230020 t 0217 

t*RfPlacement; 02230030 t 0219 

G if xta="eu w then 02230040 t 0220 G 

IF I*REPLACEMENT>i9 THFN Fl,AGC37> 02230045 T 0221 

ELSE T,EUnF*I+iU MEANS EU NOT SPECIFIED 02230050 T 0224 

G IF XTA = "SpEED •• THEN 02230060 T 0229 o 

BEGIN 02230070 T 0230 

FETCH; 02230080 T 0230 ^ 

G IF NEXT=EQUAL THEN 02230090 T 0231 G 

BEGIN 02230100 T 0231 

FETCH; 02230H0 T 0232 ^ 

--' IF XTA,[12I6]<SL0WV ThEN 02230115 T 0232 G 

IF I*MAKEINT(XTA)>SL0WV THEN FLAGC37) 02230120 T 0234 

ELSE 02230125 T 0237 

G ELSE IF XTA*"FAST " THEN T , SPDF'FASTV 02230130 T 0238 G 

ELSE IF XTA=?"SL0W " THEN T,SPDF*SL0WV 02230140 T 0242 

ELSE FL0GC37); 02230150 T 0246 

G FETCH; 02230160 T 0250 G 

END 02230170 T 0251 



o 
O 



c 

G 



(. ) 



o 



else fl0g(37)j 
end; 
IF xta="sensit» then 

BFGIN 
' u T.SFNSr»=l> 

fftch* 

O END; 

^ F|Lf!NfO[3iINXfiL]IsT; 



I. ) 



^ 



o 

c 



PUT(P + 2»?NFO? 
IF DEBUgToG THEN FlAGROUTImE(« FILEo m »' , PTIOn ".FALSE) 
END FILFOPTION* 

PROCEDURE DOLOPTJ 
PRT(573) a DOLOPT 

BEGIN 

real stream procedure sc anc buf» i d ) ? value bufj 

prtc574) = scan 

begin Label lp,la,le»xit; 



SCAN * si; 



v„ 



^_ 



END; 
If *TA h "BLOCKI" THEN BLOCK «• REPLACEMENT & 1C2I47M3J 
^ RECORD * IF XTAs»RECORD» THEN REPLACEMENT ELSE IF CA THEN 10 ELSE IF TS 

AND NOT fBO0LEANCBLOCK.C2:i])) THEN 10 & lt2!47!l] ELSE 17; 
f ~ BUFF t IF XTA = "BUFFER" THEN REPLACEMENT ELSE 2', 

^ IF XTA = "WORKAR" THEN FETCH; % TNGNORED, FOR 3500 

IF BUFF<1 OR BUFF>32 THEN BEGIN XTa«.»BUFFER»; FLAG(152) END ; 
n IE REC0RD<1 THEN BEGIN XTA«.»RECoRD" ; FLAG(152)END ; 

^ IF SAVER>999 THEN' BEGIN XTa«-"SAVE "J FLAGC152) END ; 

IF T*INFC.LINK=10 OR T=l2 OR T=l3 ThEN %%% ARE IN DISK FILE 
BEGIN 

° IF ROOLEAN(RECORD,[251])THEN BLOCK «- 300 

ELS r 

IF BL0CK*BL0CKxREC0Rn>l89O OR REC0RD>lO23 THEN 

^ BEGIN XTA* W BK/RFC"; FLAGC152) END 02237021 T 0299 C 

END 

ELSF IF BL0CK*BL0CKxREC0RD>l023 OR REC0RD>1023 THEN IF KEEP * 2 THEN 
w ' BEGtN XTA*"BK/REC»; FLAGC58 } END ELSE BEGIN REC0RD*257| BLOcK*QEND; 02237050 f 0309 C 

FlLFlNFOtO.lNXFlL] * O&BUFf t 42 '42 I 6 j&RECORor 30 8 36! l 2 ]&BL0CKn8 s 36 5 1 23 
r , RSAVER[6;36*i?3&SPiNr / »»^6*23&ALPHt3!47;i]; 

^ xit: tf nfxt * semi the n 

BfGiN FL0GC37); DO SCAN UNTIL NEXT e SEMU END; 
FIi.ETOG «• FALSEJ % END SCAN MAINTAINENCE 



SI * BUFJ DI * ID; DS «• 2 LIT »0»; uzzto^uu f uuuo 

^ LPl IF Sc » » « THEN BFGlN Sj*Sl+l; GO TO LP; END; 02246500 T OOOl O 

IF SC = »,» THEN BFGIN S T *■ S I + 1 ; GO TO LP; END; 

n ,F c c = ,,+ " THEN BFGlN d s*chR; go to xit; end; u^, f0 ™ w , uuu* 

~> IF SC « »-» THEN BFGIN DS*CHR; GO TO XjT; END? 02247000 T 0005 O 

IF SC < "A" THEN BFG|N Dl * ID; DS * 8 LIT " + 000000i« j 
q LE: St*Si+ij 

° GO TO XjT; 02247400 T OOlO O 

end; 

IF SC*"*" THEN r,0 TO LE«X ThjS IS > »A» v^.., ouu , «,-,« 

^ IF SCr:"*" THEN GO TO \_Ei% THIS IS > "A" ? 247900 T 00 1 O 

6CIF SC = ALPHA THEN DS «. CHR ELSE jU M P OUT); " ' 1! 

LA} IF SC * ALPHA THEN BEGIN SUSl^J GO To LA; END; 
° XIT l 
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end scan; 
real stream procedure getvo i dc buf » vo i dseq. fr ) ; value buf»fr? 

PRT(575) b GETVoiD 

BEGIN LABEL L* LC » LD »LE» X i T; LOCAL TA; 

^ SI ts BUF? DIlsVOlDSfQl DSl=8LlT» »; DIS=V0IDSEQ; 02250100 T 0018 C 

L* IF Sc s « w THEN BEGIN S|»SI+U GO TO LJ END? 

TA ♦ Sp 

^ IF SC = " ,,,, THEN 

BEGIN 9(SI*SI+1J 

if sc s "••" then begin si*si + h jump out to lc; end 

^ ELSE TALLY *• TALLY + 1)1 

tallyisTally+631 su=ta; siipsi+ii go to le; 

ENDI 

IF Sc < «0« THEN GO TO LDJ 02252500 T 002*6 C 

DSl»8LlT M M J XH5- 

8C SI 1 -ST + 1 ? Dl»sDI-lj TALLYJ=TALLY+i; xi 15- 

^ v IF SC LSS "0" THFN JUMP OUT); ?11 5- 02252850 c 0029 C 

Lr» si * taj 

lfi tajstally; ds;=ta chr; getvoidj^si; go to xtt; 
° ld* getvoidjsSj; 

frcds»38lit"9")j 

XI T I 

end getvoid; 
real stream procedure seqnumcbuf * vlu ) ; value buf; 
prtc576) = seqnum 

° BEfilN LABEL L,LA»LC; LOCAL TA,TB; 

SI <- buf; 

L? IF SC = " " THEN BEGIN Sl*SI+l; 60 TO LJ END; 

C IF SC » "»" THEN BEGIN Sl*SI+lJ GO TO LI ENDJ 

TA «• Si; 

IF SC ~ " + » THEN 
° BEGIN Si^Sl+i; 

t-A» IF SC = " " THEN BEGIN SI*SI + 1J GO TO LA;END; 

tb * Si; ^ rrji jwu 

^ if sc < "0" then begin sl*ta; go to lc; end; 02257600 t 0045 o 

ot*tb;ta*di; 
end; 

^ ?! l r l r v S ?. 1 < , ;°"« T " EN J UMPOUT TO L C ; 02?5S500 f 0047 O 

tally«-tally+i; si«-si + m; 
,.-, lc: tb * tally; SEQNUM «• SI) 

^ Si «. TA; Dl * Vlu; DS * TB OCT; 

end seqnum; 
real stream procedure mkabscs); 
o prt(577) = mkabs 

BEGIN SI * S; SI-Sl+i; MKABS * Si; 02260300 T 0052 

O run U JIL* S; 9CDI * 0I + B)i DS * UIT "£"' 02260600 T 0053 ^ 

^ END MKABS; OPSAnono T nn** O 

STREAM PROCEDURE MOVEW(P#Q); VALUE Ql 022609P5 T 0056 

PRTC600) s MOVEW "£**»»£* \ uu:>6 

,yJ BEGIN St+P; DI - Q; DS*CHRJ END J 02260950 T 0056 O 

Real buf* id; 02?6i?oo t oo^h 

STACK(F+2) = BUF «*?61Z0U T 0058 

O STACKfF+3) 9 ID 

, T4rk , r fl , im BOOLEAN VAL, SAVELISTOq; %5n . 02261500 P 0058 

vJ STACK'fF + 5) = SAVELiSTOG. 

LABfL LP»SETtRFSET; 02261800 T 0058 
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02252800 


P 


0028 


02252850 


C 


0029 


02252900 


T 


0031 


02253100 


T 


0031 


02253400 


T 


0033 


02253700 


T 


0034 


02254000 


T 


0036 


02254300 


T 


0036 


02254600 


T 


0038 


02254900 


T 


0038 


02255200 


T 


0038 


02255500 


T 


0038 


02255800 


T 


0040 


02256100 


T 


0042 


02256400 


T 


0042 


02256700 


T 


0042 


02257000 


T 


0043 


02257300 


T 


0045 


02257600 


T 


0045 


02257900 


T 


0047 


02258200 


T 


0047 


02P58500 


T 


0047 


02258800 


T 


0049 


02259100 


T 


0049 


02259400 


T 


0050 


02259700 


T 


0051 


02260000 


T 


0052 



o 



o 
o 



o 
o 
o 



FORMAT WARN(X18,A6," ILLEGAL CONSTRUCT ON DOLLAR CARD XXXX",X39 



79 



78 C 



o 

PRTt60l) s WARN 

•♦WARNING"); 

O 

DEFINE GFTID = BEGIN ID*- " "i BUF + SCAN(BUF.ID) EnD#; 

SAVELISTOG 1= LISTOGJ .. _ , . -..„._,.. - 

O MOVEWfCRD[93*BUFLJ? 02262800 T 0059 C 

BUF * MKABS(CRDCOl); 

getid; 
o if id = "void " then 029*3600 t 0065 u 

begin buf •- getvoidcbuf, v0ldseq»0)j voidtog «• true 

END ELSE 
O IF ID a "VOIDT " THEN 02264500 T 0071 

BEGIN BUF * GETVOfD(BUF, VOIDTSEQ.O); VOIDTTOG <• TRUE 
END ELSE 
O BEGTN 02265400 T 0079 C 

TAPET0G,[^7J1J ♦ LASTMODE = 2? 
IF ID s "SET " OR ID = "+ " THEN -*.«.„.,..- « ..... 

^ SET! BEGIN GETlD; VAL* TRUE FND 02267500 T 0085 O 

ELSF 

IF ID a "RESET "OR |0 s "- " THEN 
^ RESET; BEGIN GETlD; VAL •• FALSf END 02268400 T 0094 (J 

ELSE 
BF6IN 
O TSSMESTOG * VAL? TSSfDtTOg * VAL; CHECKTOG «• VAL; 3:501- 02269300 P 0103 ^ 

SfNGLETOGf-NOT VAL; h0lT0g*VAL» 

listog«.va Li ; codetog * debugtog - val; NEWTPTOG - VAL? 
O - prtqg*val; dolist«-val; ljbtape*val; segptog*val; 

LlSTpToG * VALJ FREEFToG «• XREF «- VAL '> 

_ val «- true; 



'^ end; 

LP! IF ID > THEN 



END; 



r- 



O 






BEGIN .„..,.--..._. 

o if id = "trace " then 02272000 t 0130 c 

begin prtog«-val; listog*valj codetog*debugtog*val; 

END ELSE 
G IF ID * "CARD " THEN 02272500 T 0136 C 

BEGIN TAPET0G,t47|l]*N0T VAL; LASTM0DE*2"REAL( VAL) END 
IF ID = "TAPE " THEN ..._... 

O BEGIN TAPET0G.C47J1] * VAL; LASTMODE «• REALCVAD + 1? END ELSE 02272560 T 0144 C 

IF ID * "NOSEQ " THEN SEOTOG «- FALSE ELSE 
tF ID » "SET " OR fD * "+ » ThfN GO TO SET eLSe 
O IF ID a "RESET " OR tD = "- " THEN GO TO RESET ELSE 

IF ID a "ONSITE" AND NOT REMFlXED THEN REMOTETOG * FALSE 

IF ID ■ "REMOTE" AND NOT ReMFIXED THEN REMOTETOG * VAL ELSF ._..... 

O IF ID s "FREEFO" THEN FREEFTOG *■ VAL ELSE 02274100 T 0174 C 

IF ID = "SINGLE" OR ?D = "SGL " THEN 

BEGIN SlNGLETOG + Val; LISTOG * TRUe; END ELSE 
O IF ID = "NEW " OR ID s "NEWTAP" THEN 02275000 T O186 U 

BEGIN l.lBTApE-VAL; NEWTpToG«-VA|.,; ntaptog-true; 
IF 10 a "NEW » THEN „ JVX - C r.-nrv v «**. 

o begin 2501- 02p75140 c 0198 o 

getid; 

if id * "Tape " then ...... ._,_.,.. „ _* 

g go to lpj 2501" 02275200 c 0202 o 



f 


02262100 


T 


0058 


START 


of segment 


********** 




02262400 


T 


0058 


79 


IS 15 LONG, 


NEXT SEG 




02262700 


T 


0058 


251 1- 


02262775 


C 


0058 




02262800 


T 


0059 




02263000 


T 


0060 




02263300 


T 


0062 




02263600 


T 


0065 




02263900 


T 


0066 




02264200 


T 


0069 




02264500 


T 


0071 




02264800 


T 


0074 




02265100 


T 


0078 




02265400 


T 


0079 


2517- 


02265700 


P 


0081 




02267200 


T 


0083 




02267500 


T 


0065 




02267800 


T 


0089 




02268100 


T 


0089 




02268400 


T 


0094 




02268700 


T 


0099 




02269000 


T 


0099 


2501- 


02269300 


P 


0103 


2501- 


02269600 


P 


0108 




02269900 


T 


0112 


2501- 


02270200 


P 


0116 




02270500 


T 


0123 




02270800 


T 


0127 




02271100 


T 


.0128 




02271400 


T 


0128 




02271700 


T 


0129 




02272000 


T 


0130 




02272300 


T 


0131 




02272400 


T 


0136 




02272500 


T 


0136 


ELSE 


02272510 


P 


0138 




02272550 


T 


0142 


ELSE 


02272560 


T 


0144 




02272600 


T 


0148 




02272900 


T 


0153 




02273200 


T 


0156 


LSE 


02273500 


T 


0159 


F 


02273800 


T 


0164 




02274100 


T 


0174 




02274400 


T 


0179 




02274700 


T 


0182 




02275000 


T 


O186 


2501- 


02275100 


P 


0l9i 


2501- 


02275120 


C 


0197 


2501- 


02275140 


C 


0198 


2501- 


02275160 


c 


0198 


2501- 


02275180 


c 


0201 


2501" 


02275200 


c 


0202 


2501- 


02275220 


c 


0202 






o 



^ 



L 

F - m n c f ^» p 
O IF ID = "LIST " THEN LlSToG * VAL ELSE """* 02275300 f 0202 C 

IF ID s "SEQXEQ" AND NoT SeGSWFIXED THEN SEGSW * VAL ELSE 

IF ID = "PRT " THEN PRTOg * VAL ELSE 
- IF ID = "DEBUGN" THEN 02276200 T 0222 ^ 

BEGIN LIST0G*VAL? C0DET0G*VAL t PRTOG «• VAL END ELSE 

IF ID a "TIME " THEN TlMETOG * VAL ELSE 
'J IF ID = "ERRMES" THEN TSSMeSTOG «• VAL ELSE 

IF ID ■ "TSSEDI" THEN TSSEDITOG * VAL ELSE 

IF ID a "LISTLI" THEN LlSTLIBTOG * VAL ELSE 
O IFC ID s "SEGMEN" OR ID = "SEG ") AND VAL THEN 

begin adr*adR+i; SEfiOVFJEND else 

IF ID = "PAGE " AND VaL ThEN WR I TECL iNE [PAGE 3 ) ELSE -_,._„..„ , _„ 

^ IF TD = "VOID " THEN 02278900 T 0263 C 

BEGIN VOIDTOG «. VALJ 

IF VAL THEN BUF * GETVoID(BUF»V0IDSEQp1 )? 

^• ; end else o??79soo t o??? 

if id = "voidt " then 

BEGIN VoIDTToG * VAL? -... _„„ . _.. 

'O IF VAL THEN BUF * GETVQI DC BUF » Vol DTSEQ * 1 ) ; 02280300 T 0277 C 

END ELSE 
IF ID « "LIMIT " THEN ._,,.,„ . 

O BEGIN LIMIT t~ IF VaL THEN ELSE 060$ 02281000 T 0282 O 

BUF :s SEQNUMfBUF. LIMIT)) 

IF LIMIT LEO ERRORCT THEN GO TO POSTWRAPUPJ 
O END ELSE 02P82500 T 0391 O 

IF ID = "XREF " THEN 
BEGIN 
O PXREF * TRUE? XREF «■ VAL? 

END ELSE 
IF ID s "SEQ m THEN .__,, . 

o begin seqtog * valj 02283200 t 0300 c 

if val then 

BEGIN SEQBASE «• SfQjNCR * 0? 
^ BUF ♦ SEQNUMCBUFiSEQBASE); 02283700 T 0305 U 

BUF «■ SEQNUM(8UF»SE0lNCR)J 
IF SEQINcR < THFN SEQlNcR * 1000? 
O END END ELSE 02284900 T 0312 O 

IF ID s "LISTDO" THEN DOLIST * VAL ELSE 

IF ID b "HOL " THEN HOLToG «• VAL ELSE -__.. , -_, 

O IF ID ? "CHECK " THEN CHECkToG * VAL ELSE 02285800 T 0322 O 

IF ID s "igEWpAG" THEn SEGpTOG *■ VAL ELSE 
IF ID « "LISTP " THEN LlSTpToG «• VAL ELSE ,.,._,__ . „_ ^ 

o begin if firstcall then datlme? 02286700 t 0337 o 

if unprinted then begin printcard; unpr i nted*false 
if singletog then writecline»warn» id) 



U PRTC602) = *LIST, LABEL* OR SEGMENT DESCRIPTOR* 

ELSE WRITECRITE»WARN#ID)J 
PRTC603) = *LIST» LABEL, OR SEGMENT DESCRIPTOR* 

'>-' FND 

) 

gftid? 

U GO TO LP? 



ENOJ 



FND? 



S501- 


02275240 


C 


0202 




02275300 


T 


0202 




02275600 


T 


0211 




02275900 


T 


0217 




02276200 


T 


0222 




02276500 


T 


0224 




02276800 


T 


0229 




02277100 


T 


0234 




02277400 


T 


0239 




02277700 


T 


0244 




02278000 


T 


0249 




02278300 


T 


0253 




02278600 


T 


0255 




02278900 


T 


0263 




02279200 


T 


0266 




02279300 


T 


0269 




02279500 


T 


0272 




02279800 


T 


0272 




02280100 


T 


0274 




02280300 


T 


0277 




02280400 


T 


0280 




02280700 


T 


0280 




02281000 


T 


0282 




02281300 


T 


0285 




02281600 


T 


0288 




02282500 


T 


0291 




02282800 


T 


0291 




02282850 


T 


0294 




02282900 


T 


0295 




02282950 


T 


0297 




02283100 


T 


0297 




02283200 


T 


0300 




02283300 


T 


0303 




02283400 


T 


0303 




02283700 


T 


0305 




02284000 


T 


0307 




02284600 


T 


0310 




02284900 


T 


0312 




02285200 


T 


0312 




02285500 


T 


0317 




02285800 


T 


0322 


*501- 


02286100 


P 


0327 




02286400 


T 


0332 




02286700 


T 


0337 


nd; 


02287000 


P 


0340 




02287300 


T 


0344 




02287600 


T 


0350 




02287900 


T 


0361 




02288200 


T 


0361 




02288500 


T 


0361 




02288800 


T 


0364 




02289100 


T 


0366 




02289400 


T 


0366 


9C51 1 - 


02289450 


C 


0366 


35517- 


02289500 


P 


0368 



o 
o 
o 



o 

o 



IF DOLIST OR LI5T0G OR SAVFUSTOG THEN K511- 02289450 C 0366 U 

IF UNPRINTED THFN PRJNTcARD? 

O 

C 



i ; 



( 



O 
O 
O 

o 

o 
o 
o 



o 



c 



-^ 



^J 



w 



w 



o 



o 
o 
o 

o 



UNPriNTFD * TRUE* 

rNo doloptj 

STRrAM PROCFDURE NfHSfQ(A»B)> VALUE b; 
PRT{604) = NEWSFQ 

BEGtN 

si * loc b; di *• a; ds * 8 dec* 
end newseqi 
integer stream procedure seqchkft.c); 
prt(605) 9 seqchk 

BEGTN 

Si * T) Dl * c; 

IF 8 SC < DC THEN TALLY * 4 ELSE 
BEGIN 

SI * Si « 8; DI * DI ~ 8; 

IF 8 SC =DC THEN TALLY * 2 
ELSE TALLY «■ 3; 
END? 

sfQchk * tally; 

END SeQCHKJ 
BOOLEAN PROCEDURE READACARDI 
BEGIN _ 
DEFINE FLAGHFLAGI1) = BEGIN fLAGC FLAG I 1 ) ; GO TO E4AIEND #J 

REAL STREAM PROCEDURE SC AN iNCf BUF * \ D. RESULT , N» M ) > 
PRT C 606) a SCANINC 

VALUE BUF»M»NI 
BEGIN 

LOCAL ta; 
LABEL LP«LQ»XIT1 
DI 1= RESULT; Dl J? Dl +7; 
SI J* BUF; 
LPj IF SC s » " THEN BEGIN SI : = SI + \\ GO TO LP? END; 

IF SC » ALPHA THEN ELSE BEGIN DSj^LIT "1"; DIlsIDJ DS J *2L I T"0 M ; 

DS != CHR; DS Js 5LIT»» »;GO TO xit; end; 
IF SC LSS "0" THEN DSJsLIT "2" ELSE DS:=LIT "3"; 
N cdij«id; DS:=8 LIT "o "; DISsDl-7; 

7CIF SC=ALPHA THEN DS8=CHR ELSE JUMP OUT 2 TO XIT)J 
JUMP OUT TO XlT)| 
M C 6 C IF SC LSS "0" THEN JUMP OUT 2 TO LQ; 
IF SC GTR »9« THEN JUMP OUT 2 TO LQ; 

sp=si + i; tally:stally+i))j 
lqj ta «* tally; 
si js si - ta; 
D! IP id; 
ds J? ta oct; 
xiti scaNjnc ;s si; 
end scanjnc? 
real stream procedure mkabscs); 

PRT(607) s MKABS 

begin si ;= s; si »= Si + i; mkabs i= si; end; 

STREAM PROCEDURE MoVE(P» Q)J VA^UE q> 
PRT(610) s MOVE 

begin Si «. pi oi * q; ds «• chr; 

DI «■ p; DS «• LIT "J") 

END movf; 

STREAM PROCEDURE MOVEC(C»B); VALUf BJ 



02289600 T 

02289700 T 

78 IS 375 LONG, 

02317000 T 



0370 
0372 

NEXT SEG 
0492 



START 



35400- 

2400- 



S400- 
£400- 
2400- 



02318000 T 0492 

02319000 T 0492 

02320000 T 0492 

02321000 T 0493 



02322000 
02323000 
02324000 
02325000 
02326000 
02327000 
02328000 
02329000 
02330000 
02331000 
02332000 
02333000 
02333050 

OF SEGMENT 
02333100 



02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 
02333 



1?0 

140 
160 
180 
200 
210 
220 
240 
260 
270 
280 
300 
320 
360 
370 
380 
400 
420 
440 
460 
500 
520 
540 



T 0493 

T 0493 

T 0493 

T 0494 

T 0494 

T 0495 

T 0495 

T 0496 

T 0496 

T 0496 

T 0497 

T 0497 

T 0497 
********** 

T 0000 



r 

C 

c 
c 

c 



80 



02333550 T 
02334000 T 

02335000 T 
02336000 T 
02337000 T 
02337100 T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 
0006 
0007 
0010 
0012 
0013 
0016 
0017 
0018 
0019 
0019 
0020 
0020 
0021 
0022 

0022 
0024 

0024 

0025 
0026 
0026 



c 
c 

c 
c 
c 

/ — < 

c 



o 
o 
o 



PRTC611) = MOVEC 

-' BEGIN S|*PJ DI*C; DS«-CHR5 END; 02337200 T 0026 L. 

BOOLEAN STREAM PROCEDURE GETCOL 1 (BUF ) J 02338000 T 0028 
PRTC612) p GEU0L1 

-' BEGIN 02339000 T 0028 C 

ST * BUFJ IF SC s MS" THEN TALLY * 11 02340000 T 0028 

6FTC0L1 * TALLY? 02341000 T 0029 

^ END; 02342000 T 0029 C 

STREAM PROCEDURE TSSFD lTS(C p P ) ; BEGIN Sl*CJ ni*P; DS*10WDS; Sl*C J 02342010 T 0030 
PRT(6i3) a TSSEDTTS 

O TF SCs»c w THEN BEGTN DI*PJ Dl-DI+U DS*LTT»- M END ELSE - 02342020 T 0032 C 

tf sc#»s» then begin si«.Si + sj if sc#» " then ?f sc/"0" Then begin di-p; 02342030 t 0034 

DS*6LlT"- " END END END OF TSSEDITS ; 023420^0 T 0037 

O STREAM PROCEDURE MoVEW(F i T, B»R ) ; VA L ,UE B, RJ 02343000 T 0039 C 
PRT(614) a MOVEW 

BEGIN 02344000 T 0039 

■^ LABEL XI T; 02345000 T 0039 C 

S! * F; DI * T; 02346000 T 0039 

BC 02347000 T 0039 _ 

^ 2C40C IF SC = ALPHA THEN DS * CHR ELSE 02348000 T 0040 <- 

IF SC - " " THEN DS * CHR ELSE 02349000 T 0042 

IE SC » "X" THEN BEGIN DS - LIT »(»; SI * Sl+1 END ELSE 02350000 T 0043 

^ IF SC = "t M THEN BEGIN DS * LIT »)"! Si «• Sl + 1 END ELSE 02351000 T 0045 

IF SC = »#" THEN BEGIN DS * LIT "s»j Sj * Sl+1 END ELSE 02352000 T 0047 

IF SC - "& w THEN BEGIN DS * LIT »+"! SI * Sl+1 END ELSE 02353000 T 0049 

^ IF SC s " a " THEN BEGIN DS * LIT «♦»"; Si * Sl + 1 END ELSE 02354000 T 0051 C 

IF SC = "I" THEN BEGIN DS *■ LIT »""! Si * Sl + l END ELSE 02354100 T 0053 

IF SC e »<" THEN BEGIN DS * LIT «+«; Si * Sl+1 END ELSE 02355000 T 0055 

IF Sc a ">" THEN BEGIN DS * LIT "=»; Si * Sj+l END ELSE 02356000 T 0057 C 

DS * CHR ))» JUMP OUT TO XiTJI 02357000 T 0059 



PRTt6l5) s *LIST, LABEL. OR SEGMENT DESCRIPTOR* 
PRTC616) s *LIST» LABEL, OR SEGMENT DESCRIPTOR* 



\ — ' 



o 

o 



r 



C 



PRT(6l7) = *LIST, LABEL, OR SEGMENT DESCRIPTOR* 

DS * 10 WdS; 02358000 T 0062 

O XiT» 02359000 T 0062 C 

S T *LOC RJ S i *S I +7; Dt*DI+1 J 02360000 T 0062 

DS*CHR I 02361000 T 0063 

O END MOVEW; 02362000 T 0064 C 

ALPHA STREAM PROCEDURE DCMOVEWC F» T , B» FIL>R ) J VALUE B,FIL»RJ 02362010 T 0064 
PRT(620) = DCMOVEW 

^ BEGIN LOCAL C; LABEL Ll»l.2»L3»L4 ; 02362020 T 0064 O 

Sl*Fl DI*T| 2(Sl*SI + 36J DS*36LlT" »)J C*-S\; DS*8CHR ; 02362030 T 0065 

Sl*|.OC RJ SUSI+6; DS«-2CHRJ DI*CJ DS*8LIT M 3";TALLY*33;SI«-F; 02362033 T 0071 

^ IF SC = " M THEN %%% IT MIGHT BE A FILES CARD, 02362034 T 0074 O 

BEGIN SI-SI+U IF SC="F W THEN 02362035 T 0074 

BEGIN DI*L0C FILJ DI*DI+2J IF 5SC*DC THEN 02362036 T 0076 „ 

'O BEGIN DI«-FJ SI*LOC FlL; SI*SI+2J DS*6CHR J GO TO LU END 02362037 T 0077 O 

ELSE Si-F END ELSE Si*f END 02362038 T 0079 

ELSf IF Sc ="F" THEN BEGIN Dl*LOC FI L J D I *D 1+2 J IF 6SC=DC THEN GO LI 02362040 T 0080 

O ELSE Sl«-FJEND 02362041 T 0082 O 

ELSp IF SCs"-" THEN 02362042 T 0083 

BFGIN %%% IT IS A CONTINUATION CARD, 02362044 T 0084 

^ st*si + i; di*t; ds*6LiT" *" j 02362050 t 0084 O 

5(IF SC= M " THEN Sl*SI+l ELSE JUMP OUT); GO TO L2 ; 02362060 T 0086 

END 02362063 T 0088 

U ELSf TF SC^C" THEN 02362066 T 0088 O 

BFGIN %%% IT MIGHT BE A COMMENT CARD, 02362070 T 0089 



o 



o 
o 
o 

O 

o 
o 
o 
c 
o 
o 



o 
o 



o 



u 

o 

o 



IF 



Si*Si+ 

end ; 

5C#"S W T 
BEGIN 
2(33(1 
SC IF S 

THEN 
DI*Tj 

END 



1? 
HEN 



IF SC="-" THEN GO TO Ll ELSe" Si+F 



ELSr 



PRT(62l) = ♦LIST. LABEL 

L2? 
B(2 



PRT(6?2> 
PRT(6?3) 
PRT(6?4) 
PRTC625) 
PRT(626) 



♦LIST, 
*LIST. 
♦LIST. 
♦LIST* 
♦LIST. 



PRT(627) * 



SEQERR 
B 



LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
2CC 

L4? 
6(1 

END 
TREAM 

EGIN 



BEGIN 
L1 I S 
, OR SEG 
END t 
e*TALL 
fCtlF SC 

TF 

IF 

IF 

IF 

TF 

TF 

IF 

TF 

IF 
. OR 



%%% IT i 

%%% NOR 

F SC=» " THE 

C*" " THEN S 

DS*CHR ELSE 

DUDI+6* I 



l*Fl DI*T| 

MENT DESCRIP 



S NOT A COMMENT CARD* NOR IS IT A $ CARD. 
A CONTINUATION CARD* NOR A FILES CARD, 
N SUSI + i ELSE JUMP OUT 2 To L3>>J L3» DI«-T; 
USUI ELSE IF SC>"0" THEN IF SC<"9" 

JUMP OUT ELSE JUMP OUT) ; 
F SCa" " THEN SUSI + 1 ; 



TALLV*36 ; 
TOR* 



sc 

SC 

sc 
sc 
sc 
sc 
sc 
sc 
sc 

SEG 
SEG 
SEG 
SEG 
SEG 

f IF SC=" 
DI-LOC 

F SC="]" 
OF DCMO 

pROCEDUR 



OR 
OR 
OP 
OR 



Y ; 

= "#« 

b"&« 

- ii j »» 

S «>H 
= ♦•[»» 
= " ] » 

MENT 

MENT 

MENT 

MENT 

MENT 
3 it TH 

DCMO 
THEN 

VEW ; 

E SEQ 



THEN 
THEN 

then 

then 
then 
then 
then 
then 
then 
then 
descrip 

DESCRIP 
DESCRIP 
DESCRIp 
DESCRIP 
EN JUMP 
VEW; D 
JUMP 



DS 
BE 
BE 
BE 
BE 
BE 
BE 
BE 
BE 
JU 



-CHR ELSf. IF SC<"[" THEN DS«-CHR ELSE 

GIN 

GIN 

GIN 

GIN 

GIN 

GIN 

GIN 

GIN 

MP OUT 3 To LA ElSE DS*CHR ) ) J JUMP OUT To l.4 3 * 

TOR* 

TOR* 

Tor* 

TOR* 
TOR* 

out 

S*8L 

UT El 



DS*LlT»( M ; 
DS«-LtT" = "J 

ds*-liT«+»; 

DS<-LlT"»"J 
DS*LtT"""; 
DS*LTT"+"J 
DS*LlT»="? 
DS*LlT«0"J 



susi + i 

ST*SI+1 
Si*Sl+l 
SI*SI+1 
SI*SI+1 
S I *S I + 1 
Sl*ST+l 
S I *S I + 1 



END 
END 
END 
END 
END 
END 
END 
END 



ELSE 
ElSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 
ELSE 



2 To L4 ELSE DS«-CHR>) 
IT"00 "; DUDI-6 

:lse ds*chr) ; 



ERR(BUFF» NEW* OLD)? 



PRTr630) a 



STACK(F+3) 
STACK(F+4) 



F 

S 

DCMOVE 

B 



a BUF 

« ID 



DI «■ BUFF; DS * 18 LfT 

st * new; ds •■ Lit"""; 
ds * 8 chri ds «• lit "»"; 

DS * 3 LIT " < "I 

s? * old; ds *■ Lit "«"; 

DS ♦ 8 CHR; DS * LIT """I 

ds * 59 Lit " M J 

ns * 8 LIT "X"; DS * 

Nn sfOfRR; 

TRfAM PROCFDURE DCMOVE(E»C*A,N)J 



"Sequence error 



"; 



4 LIT " »l 

VALUE A.N; 



egtn si*c; di*e; ds*iowds; ds*4ChR; si«-loc a; ds*4Dec; 
NrDS*8LlT» patch"); EnD; 
real buf.id; 



STACKCF+5) s NOWRI 



BOOLEAN NOWRI; 



LABEL ENDpB, E4BJ 

strta; 



LABEL LIBADD* ENDPA* E4A* E4» 
LABFL E1»E2»E3.STRT.ENDP*XIT; 



02362 
02362 
02362 
0236? 
02362 
02362 
02362 
02362 
02362 
02362 
02362 
02362 



080 
090 
100 
110 
120 
130 
HO 
150 
160 
170 
180 
190 



02362200 
02362210 
02362220 
02362230 
02362235 
02362240 
02362245 
02362250 

02362255 
02362260 
02362265 
02362270 



02362275 
02362280 
02362285 
02362290 
02362300 



02362 
02362 
02362 
02362 
02362 
02362 
02362 
02362 
02362 
02362 
02362 



400 
450 
500 
550 
600 
650 
700 
750 
800 
850 
855 



02362860 T 
02362865 T 
02362900 T 



0089 
0091 
0091 
0091 
0091 
0095 
0097 
0100 
0101 
0101 
0101 
0101 

0102 
0102 
0103 
0107 
0109 
0111 
0113 
0115 
0117 
0119 
0121 
0123 



0128 
0131 
0133 
0136 
0137 

0137 
0137 
0139 
0140 
0141 
0142 

0142 
0143 
0151 
0153 
0153 

0153 
0155 
0158 



02362902 T 0158 

02362950 T 0158 
02363000 T 0158 



c 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

t 

o 
o 
o 
o 
o 
o 
o 
o 

o 



( ) 



UNPRINTED*TRUE '> 
GO TO STRTJ 

LlBflOn: 

XTA 5= blanks; 

IF INSF.RTOEPTH s -i 
MOVE (CRDt91,BUFL); 



THFN SAVECARD := NEXTCARD? 



O 



o 



u 



V*- 



o 



v_/ 



w 



•w^ 



O 



PRTC631) b E4 



o 



w 



o 



S5107- 



IF (INSERTDEPTH ?- INSfRTdfPTH + 1) GTR INSeRTMAX THEN 
FUGTC158); 

nfwtptog «s false; 
inseRTinx j= -h 
inseRTcop * o; 

BLANKlT'fSSNM[5]»l,0); 

BUF »= SCAN!NC(BUf»INSeRTMtD»RESULT»1#0)I 
IF RESULT s i AND INSErTMID = " + "THEN 
BEGIN BUF*SCANINC(BUF»ID»RESULT»i»o>? 

IF ID = "COPY » THEN INSERTCOP ?b 1 

else flagi c 155) j 

buf*scaninc(buf»insertmi0#result»1»0)i 
end; 

if result neq 2 then flagi (155)1 

BUF <- SCANlNC(BUF»ID»RESUUTtO»l)> 
IF RESULT s 1 THEN IF ID b «•/ » THEN 
BFGIN BUF * SCANINC(BUF#INSERTFID»RESUUT»1»0)I 
IF RESULT NEQ 2 THEN FLAGI C 155) J 

BUF * SCANINC(BUF»ID.RESULT»IM>I 
FND ELSE INSERTF1D ?= TIMfC-1) ELSE INSERTFID >p TlMEC-1 i* 
IF RESULT = 3 THEN 

BEGIN NEWSEQ(SSNM[5]f TD>! 

BUF «■ SCANlNC(BUF#ID.RESULTtO,l); 
IF RESULT NEQ 1 ThEN FLAGIC156); 
IF ID p "] " ThfN NEWSEQ (INSERTSEQ»99999999) 
ELSE BEGIN 
BUF * SCANINC(BUf»ID,RESUUT»0»1)J 
IF RESULT NEQ 3 T H EN FLAGJC157); 
NEWSEQ f INSERTSEQ* ID)? 
END 
END ELSE IF ID b »♦] » THEN NEWSEGX I NSERTSEQ. 99999999 ) 
ELSE FLAGIC157); 
IF INSERTDEPTH > THEN CLOSE CLF » RELEASE ) ; 
FILL LF WITH INSErTM I D» I NSERTFI D; 
DO BEGIN 

READ (LFCINSERTlNX * INSERT INX + 1 3 » 1 0. DB t * 1 ) [E4J ; 

END UNTIL SEQCHK(SSNM[5],DB[9J) NEQ 3; 
NFWTPTOG «• BOOLEANCINSERTCOP); 
IF NOT NEWTPTOG THEN 
BFGIN 

if seqtog then 

bfgin newseqccrdt9]»seqbasf); movec crdc9 ] , bufl) ; 

seqbase*seqbasf+seqincr; 
end; movec(CRdc9],bufd; 
if libtapf andcinseRtdfPTh b o ) then writecnewtape» io,cRDr*i); 

EHDi 35511- 

TF LiSTOg OR DOLIST THFN PRiNTCARd; S5511- 

nfxtcardu7? 
go to strt; 



35400- 
3S4O0- 



35400- 



02363100 
02364000 

02364100 

02364130 

02364160 

02364240 

02364280 

02364300 

02364320 

02364330 

02364340 

02364350 

02364360 

02364380 

02364381 

02364382 

02364383 

02364384 

02364385 

02364386 

02364400 

02364420 

02364440 

02364460 

02364480 

02364500 

02364520 

02364540 

02364560 

02364580 

02364600 

02364605 

02364610 

02364620 

02364640 

02364660 

02364670 

02364680 

02364700 

02364720 

02364740 

02364760 

02364780 



02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 
02364 



800 
810 

811 
815 
820 
830 
840 
850 
860 

885 
890 
900 
9i0 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T. 
T 
T 
P 
T 
T 
T 

T 
T 
T 
T 
T 
T 
C 
C 
T 
T 
T 
C 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
P 
T 
T 



0158 
0160 

0161 

0162 

0162 

0165 

0166 

0166 

0168 

0169 

0171 

0173 

0175 

0177 

0181 

0184 

0187 

0190 

0195 

0199 

0199 

0201 

0204 

0206 

0211 

0215 

0218 

0224 
0225 
0227 
0230 
0232 
0235 
0239 

0242 
0244 
0246 
0246 
0249 
0254 
0257 
0263 
0263 

0272 
0275 
0278 
0279 
0280 
0280 
0283 
0285 
0286 
0291 
0292 
0295 
0296 



c 

c 
c 

c 
c 

r 

c 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



( ) 



I ; 



'•w 



V-* 1 



u 



PRTC6325 = E2 



o 
o 



= MKABSCCRDCO]); 
IF ID NEQ INCLUDE 



u 



o 



^' 






•~J 



■u 



u 



O 



PRT{633) = El 



E|J IF NEXTCARDsl THEn IF TAPETOG THEN 
BEGIN 
NEXTCArD*5; READ(Tp»10^TB[*])tE2l> Go To STrT ; 

END 
ELSE 

BEGIN 
NEXTCARDJS6; 
IF GETC0L1 CCRDCO]) THEN BEGIN BUF 
BUF*SCANINC(BUF» ID » RESULT* 1»0) J 
THEN BLANKIT(CRD»9.1)> END* 
GO TO ENDP ; 
END ; 
NFXTCARD *• 5? GO TO fNdP? 
E2! TF NFXTCARD=5 THEN 
BEGIN 
NFXTCARD?=6; 
IF GETCOLKCRDCO]) ThEN BEGIN BUF 
BUF*-SCANlNC(BUF»ln»RESULT»l»0) J 

then blankitccrd#9»i)» fNd* 

END 
ELSE IF NEXTCARD*? ThEN NEXTCARD+1 
BEGIN 
NEXTCARD*!? TAPET0G*B00LEAN(2>* READ(CR,jO#CBt*])[Et ] i 



02365000 T 
02366000 T 
02367000 T 



is MKABSCCRD[0])J 
IF ID NEQ INCLUDE 



ELSE 



END I 

IF VOIDTTOG THEN IF SEqCHkC CRD[9 ) » VO I DTSEQ ) < 4 XU4* 

THEN V0IDTT0Gj=FALSE XI 14- 

ELSE BEGIN Vo I DTTOG I bFALSE i Go To STRT? END? *114* 

GO TO ENDP J 
E4Bj N0WRI *TRUEJ 

IF SEQT0G THEN NEWSEQC CRDt 91 » SEQBASE ) J 
IF NEWTPT0G THEN IF TSSEDITOG THEN 

BEGIN TSSFDITS(CRD*PRINTBUFF)? WR ITE CNEWTAPE* 10, PR JNTBUFF[ *] ) I 
END ELSE WRlTE(NEWTAPE.lO,cRDC*3)J 
E4; CLOSE CLF, RELEASE); 
NFWTPTOGSs SAVETOfiJ 
IF (INSERTDEPTH * = INSeRTDfPTH * 1) = -1 THEN 

BEGIN NEXTCARD «• SAVECARD? GO TO ENDPA; END 
ELSE NEWTPT0G ♦ BOOLEANc I NSERTCOP ) I 
FILL LF WITH I NSeRTMt D# I NSeRTF I D ) 

READfLFriNSERTfNX »= INSERTINX + 1 3 » 1 0,DB[ *] ) r E4] t 
IF SE0CHKrlNSERTSEQ»DB r 9]) = 4 T H EN GO TO E4J 
GO TO ENDP? 



E/^Al 



O 

o 
o 

o 



STRT5 
STRTA 



NEWTpToG*SAVEToG; 

IF ClNSERTDEpTH Sp I nSERTDEPTH'1) s 

El.SE NEWTpTQG * BoOLEAnC I NSERTCOP ) ; 



■1 THEN NEXTCARDjsSAVECARD 



BEGIN 



IF NEXTCARD»6 THEN Go XIT J 
CARDC0UNT*CARDC0UNT+1 J 
IF NEXTCARD = 1 THEN 

3! CARD ONLY 
IFCNOT DCINPUT OR TSSFDI TOq) AND NOT 
THEN M0VEW(CB»CRD»H0LT0G>IF DCINPUT 



FREEFTOG 
THEN »D" 



FLSE 



ELSE IF SSNhU4]*DCM0VEWCCB»CRDfH0LT0G»'»FILE "»IF 



tIRfl) 

FREEFTOG 



02368000 
02369000 

02370000 
02371000 
02371002 
02371004 
02371006 
02371010 
02371020 
02372000 
02372010 
02372020 
02372030 
02372040 
02372050 
02372060 
02373000 
02373010 
02373020 
02373030 



02373 
02373 
02373 
02373 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02374 
02375 
02375 
02376 
02377 
02376 
02379 
02380 
02380 
02380 



040 
045 
100 
200 
000 
050 
053 
055 
060 
065 
100 
110 
150 
200 
300 
450 
470 
500 
5?0 
560 
580 
600 
680 
000 
600 
000 
000 
000 
000 
000 
100 
125 



0296 
0298 
0299 

0305 
0305 

0305 
0306 
0306 
0310 
0314 
0316 
0317 
0317 
0318 
0319 
0320 
0321 
0325 
0328 
0330 
0330 
0333 
0333 

0340 
0340 
0343 
0345 
0349 
0349 
0350 
0353 
0355 
0361 
0366 
0368 
0370 
0372 
0374 
0377 
0383 
0393 
0396 
0397 
0398 
0399 
0402 
0406 
0407 
0407 
0408 
0409 
0410 
0410 
0412 
0419 



v_ 



c 



o 



^w 



u 






c 
c 



c 



c 
c 



c 

c 
c 
c 
c 

c 



o 

o 



THEN » R" ELSE " D") * " " THEN 02380150 T 0425 O 

U BEGIN XTA*SSNM] J 02380175 T 0428 O v 

M0VESEQCSSNMr4],LASTSEQ)f MOVESEQ C LASTSEQ » CRD[ 9 ] ) ; 02380200 T 0430 

if ltstog then 0238O210 t 0433 

vJ BEGIN IF FTRSTCALL THEN DATjME J 02380220 T 0434 O 

DCMOVE(PRINTBUFF»CRO»(ADR+1), [36U0J, 0)1 02380230 T 0436 

WRlTAROW(li.PRlNTBUFF); UNPR I NTED*FALSE i 02380240 T 0439 

O END i 02380250 T 0442 ^ 

FL0Gfl49); M0VFSEQ(LASTSEQ,SSNMr4]) I 02380300 T 0442 

END J 02380400 T 0444 

O IF GETCOLKCRDtOj) ThEn 02381000 T 0444 U 

BEGIN 02382000 T 0446 

BUF S= MKABS(CR0[03)> 02382200 T 0446 

O BUF t~ SCANlNCCBUFi ID* RESUlT, 1 » ) ; 02382300 T 0448 ^ 

IF ID NEQ INCLUDE THEN 02382400 T 0451 

BEGTN 02382500 T 0452 

J DOLOPTj 02383000 T 0453 u 

IF REALCTAPET0G)*3 ThEn READ(TP) J 02383010 T 0453 

READCCR»iO»CBt*3)[E13> 02384000 T 0458 

O IF NOT TAPETOG THEN GO TO STRT* 02385000 T 0464 

READ(TP,10,TB[*])tE2]; 02386000 T 0464 

NFXTCARD *■ SEQCHK(TB[9], CB[9J)J 02387000 T 0470 

O GO TO STRTJ 02388000 T 0472 

END* 02389000 T 0477 

END? 02389100 T 0477 

O IF LlSTPTOG THEN 02389200 T 0477 O 

BFGIN IF FIRSTCALL ThEN DATIME* .02389300 T 0477 

IF SEOTOG THEN NfWSfQ(CRD[9],SFQBASE)J 02389400 T 0480 

O DCM0VE(PRINTBUfF,CRD,(ADR + D.[36»10],1); 02389500 T 0482 O 

WRlTAROW (12,PRINTBUFF)J UNPRiNTED *s FALSE* 02389600 T 0485 

FND* 02389700 T 0488 

O READ(CR,lO,CB[*])rEl]i 02390000. T 0488 O 

GO TO ENDPJ 02391000 T 0494 

END? 02392000 T 0494 

G IF NEXTCARD = 5 THEN 02393000 T 0494 O 

BEGIN 02394000 T 0495 

M0VEW(TB#CRD»H0LT0G,»T») I 02395000 T 0495 

O READCTPi 10» TB[*])[E?i; 02396000 T 0499 ^ 

IF VOIDTTOG THEN IF SEqCHK cCRDt 9] , VO I DTSEQ ) < 4 THEN 02396100 T 0504 

VOIDTTOG «■ FALSE ELSE GO TO STRTJ 02396200 T 0507 

O GO TO ENDPJ 02397000 T 0510 U 

END} 02398000 T 0510 

IF NEXTCARD < 3 THEN 02399000 T 0510 _ 

O BEGIN X CARD OVER TAPE 02400000 T 0511 ^ 

IF(N0T DCTNPUT OR TSSEDI TOG ) AND NOT FREEFTOG 02401000 T 0511 

THEN MOVeWCCB»cRD»HOLTQG»IF DCINPUT THEN "D" ELSE "R m ) 02401100 T 0513 ~ 

'O ELSE IF SSNM[4]*DCM0VEW(CB,CRD»H0LT0G,"FILE MF FREEFTOG 02401125 T 0520 ^ 

then «» R« else •» d») / " " then 02401150 t 0526 

begin xta*ssnm[4] i 02401175 t 0529 _ 

u - m0veseq(ssnmr43,lastseq)j movesegc lastseq »crdt 9 ] ) ; 02401200 t 0531 ^ 

if listog then 02401210 t 0534 

BEGIN IF FIRSTCALL THEN DATjMe I 02401220 T 0535 

O DCM0VE(PRINTbUFF.CRD»CADR+1).C36U0],0)J 02401230 T 0537 U 

WRITAR0W(11»PRINTBUFF); UNPRl NTED*FALSE 5 02401240 T 0540 

END ! 02401250 T 0543 

O FL0GC149)} M0VeSeQ(LASTSEQ,SSNM[4]) i 02401300 T 0543 O 

END J 02401400 T 0545 



o 
O 



o 

C 



,--. IF NEXTCARD s? THEN READ(Tp#iO#TB[*])rE2]> 

^ IF GETCOLHCRD) THEN 02A01000 T OS'S? v~ 

BEGIN 
r . BUF 1= MKABS(CRD[03 ) J 

^ BUF l; SCANlNC<BUF»ID, RESULT, 1 ,0); 

IF ID NEQ INCLUDE THEN 
BEGIN 
U DOLOPT; Q24Q5000 T 0560 

RFADCCR»lO#CBC*3)CE3]l 
_ PRT(634) = £3 

^ NEXTCARD «• SEQCHK(TBr9]. CB[9])i 02407000 T 0566 C 

GO TO STRTJ 

F3J NFXTCARD*5J fiO TO STRT* 
^ END? 

END} 

IF LISTPTOG THEN 
^ BFGIN IF FlRSTCALL ThFN DATIMeJ 03409309 T 0576 

IF SEQTOG THEN NfWSeG(CRD[93,SeC)BASE); 
DCM0VECPRINTBUfF,CRD.(ADR+1).[36«10]»1)J 
WRJTAROW (ip.PRiNTBUFF)J UnPRINTED J= FALSE? 0240960Q T 0583 C 

end; 
read(cr»10»cb[*])£e1]j 

^ NEXTCARD * SEQCHK(TB[9]» CBE9J3J 02411000 T 0R9? C 

GO To ENDp; 
ENDj 

U % TAPE BEFORE CARD 02414000 T 0595 C 

IF NEXTCARD = 7 THEN 
BEGIN 

^ ifcnot dcinput or tssed i tog) and not freeftog 02414175 t 0596 c 

then movew(db*crd,holtog» m l") else if xta*dcmovew(db » crd* 
~ h0lt0g#»'file ",i f freeftog then " r" else " d") 

'^ + " •* Then flogci49); 

if getcoljccrd[0]) then 

^ BEGfN 

O BUF «= MKABSCCRDtO])} 

buf j= scaninccbuf» id, Result, i.o)j 
if id s include then go to libaddj 



u 



^ END! 



RFAD(LF[ INSERT I NX* INSERT INX + 13» 10, DBC*])CE^B]; 
PRTC635) = F 4B 

O IF SE0CHK(lNSERTSF0,DBr9]} s 4 THEN GO TO E4BJ 02414380 T 0631 O 

if getcolkcrdcOj) then begin dolopt; go to strt; end; 
go to endp; 



O END; 



M0VEW(TBfCRD»H0LT06»»TH) ; 
READ(Tp,io,TB[*])EE2]; 
O IF VOIDTTOG THEN IF sEQCHKf CRDt 9 J , VOI DTSEQ ) < 4 THEN 02416100 T 0651 O 

VOlDTTOGJsFALSE ELSE BEGIN NEXTC ARD l = SEQCHK ( TB [9 J » CB [ 93) ; 

GO TO STRT; END; *114- 

^ NEXTCARD * SEQCHKC TB[ 9] , CBC9]); 02/417000 T 0660 O 

ENDp> 

IP NEXTCARD NEQ 7 THEN „,»,„„„ , UDD3 

U IF VOIDTOG THEN IF SeQCHKC CRDt 9] , VO I DSEQ ) < 4 THEN 02419000 T 0663 O 

VOIDTOG 8- FALSE ELSE GO TO STRT; 
IF GETC0L1CCRD[0]) ThEN 
^ BEG?N 

BUF «= MKABS(CRDC03)| 



02402000 


T 


0545 


02403000 


T 


0552 


02404000 


T 


0553 


02404200 


T 


0554 


02404300 


T 


0556 


02404400 


T 


0559 


02404500 


T 


0560 


02405000 


T 


0560 


02406000 


T 


0561 


02407000 


T 


0566 


02408000 


T 


0568 


02408500 


T 


0574 


02409000 


T 


0575 


02409100 


T 


0575 


02409200 


T 


0575 


02409300 


T 


0576 


02409400 


T 


0578 


02409500 


T 


0580 


02409600 


T 


0583 


02409700 


T 


0587 


02410000 


T 


0587 


02411000 


T 


0592 


02412000 


T 


0594 


02413000 


T 


0595 


02414000 


T 


0595 


02414100 


T 


0595 


02414150 


T 


0596 


02414175 


T 


0596 


02414200 


T 


0598 


02414225 


T 


0607 


02414250 


T 


0610 


02414260 


T 


0613 


02414270 


T 


0614 


02414280 


T 


0615 


02414290 


T 


0617 


02414300 


T 


0620 


02414310 


T 


0621 


02414370 


T 


0621 


02414380 


T 


0631 


02414382 


T 


0635 


02414390 


T 


0642 


02414400 


T 


0642 


02415000 


T 


0642 


02416000 


T 


0645 


02416100 


T 


0651 


02416200 


P 


0654 


02416300 


C 


0659 


02417000 


T 


0660 


02418000 


T 


0662 


02418100 


T 


0663 


02419000 


T 


0663 


02419050 


T 


0668 


02419100 


T 


0670 


02419150 


T 


0671 


02419200 


T 


0672 



o 



o 
o 



o 



o 
o 
o 



o 



I ) 



'-\ 



u 



ENDl 



BUF 
TF 



*= SCANINCCBUF* ID'RESUL 

id = INCLUDE then go to 



T.l.O)} 
LlBADD FLSE 



GO TO STRT 



sfQeRRors J= falsej 
if nextcard = r then 

BEGIN 



IF 
IF 



C 

CH 
BE 



ENDJ 
EN 



extcard = ' Then 

EGIN M0VeSeQ(LAStSfQ*CRD[9]); go to endpa; 

hecktog and seqerRct=o then sfqerrct*i > 
hecktog then if seqchkflastseq,crd[9])=3 th 

BEGIN 

SEQERRcERR0RBUFFfCRDC9]tLASTSEQ) J 
M0VESEQCLASTSEQtCRD[9]) ; 
IF SEQTOG THEN 

BEGIN nEWSEq(CrD[9J»SEqBASE);SEqBASE«-SE0BASE + SEqInCr EnD? 
MOVESEQ(LINKUISTiCRDC93); 
MOVE(CRD[93»BUFL) I 



SEQERRCT*SEQERRCT+1 i 

SEQERRORS*TRUE i 

IF NOT LISTOG THEN PRINTCARD I 

END 



END 
ELSE M0VESEQCLASTSEQ.CRDC9]) ELSE MOVFSEQ( LASTSEQ »CRD[ 9] ) j 



^J 



w 



^ 



o 



•u 



;~-) 



U 



O 



u 



U 



'u 



u 



O 



BEGIN TSSEDITS(CRD>PRINTBUFF) \ 
ELSE WRlTE(NEWTAPEMO,CRD[*]), J 



FNnPAJ 

IF SEQTOG THEN 
BFGIN 

nfwseQccRdc9],seqbasf)j 

SfQBASe * SFQBASE + SEQINCRJ 

END? 

if nowri then go to endpb? 

if nfwtptog then if tsseditog then 

WRITE (NEWT APE » 10 , PR I NTBUFF t * ] ) EnD 
ENDPBJ 

IF NOT SEQERRORS THEN 

BFGIN 

MoVESEQ(UlNKL!ST.CROr9]) J 

M0VECCRDC93»BUFL) i 

END J 

NCR * initialncr; 

READaCARD + TRUE? 
X!T« 

SEGSWFIXED «• TRUE '* 

REMFtXE0*TRUe J 

IF TSSEDITOG THFN WARNED*TRUe * 

IF LtSTOG AND FiRSTCALL THFN DATtME* 

if SrGSw then %%% enter seq* and adr to lineseg array, 

bfgin if lastaddr^adr then begin nolin«-nolin+i j lastaddr*adr end; 

LTNESEG[NOLlN,IR»NOUINtlC)*0 R D?B aASTSEQ ) C iO \ 20 S 28 ] & cADR+3) 
M8 I 36 MO] i 
EnD ; 
END READACARDJ 



02419250 
02/(1 9300 

0241.9325 
02420000 
02420010 
02420011 
02420015 
02420020 
02420030 
02420040 
02420050 
02420053 
02420057 
02420060 
02420070 
02420080 
02420090 
02420100 
02420110 
02420120 
02420150 
02420200 
02420250 
02420300 
02420350 
02420400 
02420450 
02420500 
02420550 
02421000 
02422000 
02423000 
02424000 
02425000 
02425100 
02426000 
02426005 
02426008 
02426010 
02426020 
02426030 
02426040 
02427000 
02428000 
02429000 
02430000 
02431000 
02431005 
02431100 
02432000 
02432100 
02432200 
02432300 
02432400 
02432500 
02433000 



0674 
0677 

0679 
0679 
0680 
0681 
0684 
0687 
0690 
0691 
0693 
0694 
0695 
0698 
0700 
0701 
0702 
0704 
0706 
0706 
0710 
0710 
0710 

0710 
0710 
0710 
0710 
0710 
0710 
0711 
0711 
0712 
0713 
0714 
0714 
0715 
0719 
0728 
0729 
0730 
0730 
0732 
0733 
0733 
0734 
0734 
0735 
0736 
0738 
0741 
0744 
0745 
0748 
0754 
0755 
0755 



c 

c 



^v 



c 
o 



u 



D 



o 



^_> 
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c 

c 
c 
c 
c 

c 

c 



c 



c 

c 



i ; 



U 



U 



O 



c 



o 



O' 



O' 



u 



o 



u 



o 

o 
o 






o 
o 
o 



integer stream procedure conVert(nUb»size»p»char)? value p? 
prt(636) = convert 

BEGIN 
LOCAL T| 

SI «• p; 

8CIF SC < "0" THEN JUMP OUT* 

Si * SI + 1J TALLY «■ TALLY + 1)J 
CONVERT «• SI) 

DI * CHAR? DS «• 7 LIT "0") DS * CHR? 
T «■ TALLY? 

ST *• Pj DT * NUBJ DS «• T OcT; 
DT * SIZE t SI * LOC Tj DS «- WDS? 
END CONVERT} 
PROCEDURE SCAN? 
BEGIN 
BOOLEAN STREAM PROCEDURE AOVANCfCNCR, ACR, CHAR, NCRV, ACRV)? 

PRTf637) s ADVANCE 

VALUE NCRV, ACRV. CHARJ 
BEGIN LABEL LOOP? 

LABEl, DIG* ALPH» BK1» Bk?» SpEC; 

DI * acrV? 

SI * CHAR? SI * SI+8? 
IF Sc # " " THEN 

IF SC > "0" THEN BEGIN Si «■ NCRV? Go TO BK1 END ELSE 

BEGIN SI * NCRV? GO TO BK2 END? 
SI * NCRV? 
LOOP» 

IF Sc s " " THEN BEGIN SI*Sl+l? GO TO LOOP END? 
IF Sc > "0" THEN 
BEGIN 

DTG? DS *• CHR? 

BKlS IF SC s " " THEN BFGIN Si * S I + 1 ? GO TO BK1 END? 

IF SC * "0" THEN GO TO DIG? 

GO TO SPEC? 
END? 

if sc = alpha then 

BEGIN 

ALPH» DS * CHR> 

BK?J IF SC = » « THEN BFGlN St * Sl+1? GO TO BK2 END? 

if sc = alpha then go to alphj 

END? 
SPEC? 

ACRV * DI? 
DS «. 6 LIT " "? 
IF Sc a "]♦» THEN 
BEGIN TALLY * 1 ? S I *■ LOC ACRV? 
Dl «• ACR? DS * WDS? 
Di «- CHAR? DS * LIT »;♦•; 
END FLSF 

BEGIN DI * CHAR? DS * CHR? 
ACRV * SI? Si *- LOC ACRV? 
DT * NCR? DS <- WDS? 
END? 

ADVANCE *• TALLY? 
FNd ADVflNCF? 
BOOLEAN PROCEDURE CONTINUE? 



02434000 T 0497 



02435000 
02436000 
02437000 
02438000 
02439000 
02440000 
02441000 
02442000 
02443000 
02444000 
02445000 
02446000 
02447000 
02448000 



0497 
0498 
0498 
0498 
0499 
0501 
0501 
0503 
0503 
0504 
0505 
0506 
0506 
0506 



start of segment ********** 



81 



02449000 
02450000 
02451000 
02452000 
02453000 
02454000 
02455000 
02456000 
02457000 
02458000 
02459000 
02460000 
02461000 
02462000 
02463000 
02464000 
02465000 
02466000 
02467000 
02468000 
02469000 
02470000 
02471000 
02472000 
02473000 
02474000 
02475000 
02476000 
02477000 
02478000 
02479000 
02480000 
02481000 
02482000 
02483000 
02484000 
02485000 
02486000 
02487000 



0000 
0000 
0000 
0000 
0000 
0000 
0001 
0003 
0004 
0004 
0004 
0006 
0007 
0007 
0008 
0010 

ooti 

0011 
0011 
0012 
0012 
0013 
0015 
0016 
0016 
0016 
0017 
0018 
0018 
0019 
0020 
0021 
0021 
0021 
0022 
0022 
0022 
0023 
0024 



c 
c 
c 
c 
c 
c 
c 
c 






c 
c 
c 



•c 



o 
o 

o 



'O 



c 



PRT(640) s CONTINUE 

BEGIN 

labfU loop; 



o 



IF(0C!NPUT AND NOT TSSEDlT0G)0R FREEFTOG THEN 



[J ACR * ACR1J 

LOOPj 

IE AnVANCECNcR* ACR, CHR1# N r R, A cR) THEN 
w ' IF CONTINUE THEN 

% 

,-s if ReadacaRd Then 

U BEGIN 

IF LlSTOG THEN pRlNTCARD i 
ry IF ACR,[33!15]^EXaCCU M ST0P THEN 

-^ RfRlll VTA.DI Alll/Cl r, nEr.-r 



o 



^_> 



v_ 



BOOLEAN STREAM PROCEDURE C0NT T N fC D>> START ° P SFfiMENT ********** 82 

PRTf641) a CONTiN 

BEGIN S T *CD? IF SC*"C" THEN IF SCi*«S» THEN BEGIN SNSI + 5J IF SC?*« " 

l H n ZH A f fS'r!" THEw BEGIN TALiiY.i; CONTINUALLY END END END OF CONTIN I 02489000 T 000? t 

PRTC642) = COMNT R M PR ° CEDURE C OMNTCCD.T); V Al U E T | n,!Sol t °XSI 

^ begin label l ? 

SI * CD) IF SC s »C» THEN BEGIN TCSI*SI + H IF SC«»-» THEN TALLY*1 
ELSE JUMP OUT To L); TALLY-1? L> END; COMNT*TALLY i 
^ END COMnT) 

BOOLEAN STREAM PROCEDURE DCCOnTI N( CD ) i 
PRT(643} s DCCONTIN 

BEGI SI ♦ CD) IF SC . THEN TaLLY ♦ i, 25J22222 I 22?? L 

DCCONTIN * TALLY} 
^ fNo DcrnNT T N 5 

LOOP! ,F NOTCCONHNUE * Z?!2!!J! I 22!! L 



IF NEXTCARD < 4 ThEN DCCONTjNCCB) OPAQi\mn t nnJo P 

ELSE IF NEXTCARD s 7 THEN DCCONTl N( D8 )ELSE CONTlN(TB) 
r-. ELSE IF NEXTCARD = 7 THEN CONTiN(DB) 

E !^S J F NFXTCAR D < * TH EN CON Tl NfCB) ELSE 02492000 T 0030 C 

CONTiN(TB)) THEN u ^^ wu l UUJU 

IPC IF NEXTCARD < 4 T H EN 

C0MNT(CB,(DCINPUT AND NOT TSSEDjTOG) OR FREEFTOG) 

ELSE IF NEXTCARD = 7 THEN 

p. comnT(Db»cdcinpUt and not tsseditogj or freeftog) 

^ else comntctb»o) and nextcard t 

begin 

~ IF READACARD THEN IF LlSTOG THEN PRINTCARDJ 

GO TO LOOPJ 

END) 
^ END CONTINUEI 

PRTC644, a SCANX PR ° CEDURE SCANX . CC0F1 ' E0F2 ' E ° Sl ' E0S2 ' 0K1 ' »™> ^ ' $ t>>lU«™*'r Vnl*™ 81 ° 

J VALUf E0F1* E0F2, E0Sl# E0S2, OKI, 0K2; 

INTEGER E0F1# E0F2, EOSl. E0S2. OKI, 0K2; 

q begin Label loop, loopo j 

LOOPOJ 

EXACcUMrU * BLANKS) 



02487200 T 


0024 


02487400 T 


0024 


°F SEGMFNT ********** 


02487600 T 


0000 


02488000 T 


0000 


02489000 T 


0002 


02489200 T 


0005 


02489400 T 


0006 


02489600 T 


0006 


02490000 T 


0009 


02490200 T 


0011 


02490400 T 


0012 


02490500 T 


0012 


02490600 T 


0013 


02491000 T 


0014 


02491200 T 


0014 


02491400 T 


0015 


02491600 T 


0016 


02491650 T 


0019 


02491700 T 


0021 


02491800 T 


0026 


02492000 T 


0030 


02492200 T 


0034 


02492400 T 


0036 


02492450 T 


0038 


02492500 T 


0041 


02492550 T 


0044 


02492600 T 


0048 


02493000 T 


0052 


02493200 T 


0053 


02493400 T 


0055 


02493600 T 


0056 


02494000 T 


0056 


S 59 LONG* 


NEXT SEG 


02495000 T 


0024 


02496000 T 


0024 


02497000 T 


0024 


02498000 T 


0024 


of segment ********** 


02498100 T 


0000 


02499000 T 


0000 


02500000 T 


0001 


02501000 T 


0002 


02502000 T 


0002 


02503000 T 


0004 


02504000 T 


0005 


02505000 T 


0005 


02506000 T 


0006 


02506010 T 


0006 


02506020 T 


0008 


02506030 T 


0009 


02506040 T 


0012 



65 THEN 02492600 T 0048 O 

o 



o 

START OF SEGMENT ********** 83 O 

o 
o 
o 



BEGIN XTA-BLANKS; FL06C175)! GO LOOPO END ; 02506030 T 0009 O 

L00P l . 02506040 T 0012 

o 



V , 



c 



•_> 



L> 



o 



^ 



u 



o 



o 



O' 



o 



_; 



O 
O 

o 



o 
o 
o 



END 
ELSE S6N * IF EXacCU M Ci] = BLANKS THEN E0F1 ELSE EOF? 
ELSE SCN «• IF EXACCUMC1J = BLANKS THEN EOSl ELSE E0S2 
ELSE SCN * IF EXACCUMtl] = BLANKS THEN OKI ELSE 0K2J 
END SCANXJ 

DEFINE CHAR - ACCUM[OJ#; 
DEFINE T=SYMBOL#J 
INTEGER NJ 
STACKeF+2) = N 

„„„. „ „ BOOLEAN STREAM PROCEDURE CHECKEXPC NCR, NCRV, A)) VALUE NCRVl 
PRT(645) b CHECKFXP 

BEGIN 

SJ * NcRVJ 

if sc n «*" then 

BEGIN Df * A; Dt «• DI+2J DS * 2 LIT "*'»* Si * Sj + U NCRV * S { f 

tally * t ; checkexp * tally; 

Si * loc ncrv; DI «■ NCR; DS «. wds end; 
end checkexp; 
procedure checkreserved; 
prtc646) o checkreserved 

BEGIN LABEL RESWD, X I T» FoUNDi* F0UnD2» DONE? 

BOOLEAN STREAM PROCEDURE COMPlETECHECKC A* B . N> I VALUE N I 
PRTC647) s COMPLETECHECK 

BEGIN LABEL L ; 

si*a; si*si-2; di*b; nc if sc^dc then jump out to l); tally*ij 
l; completecheck-tally ; 
end of completfcheck ; 
stream procedure xfercfrom, tl. t2» n, m)i value from, n, m; 

PRT(650) = XFER 

BEGIN St * FROM; DT «■ Til 01 * Dl + 2; 
DS * M CHRI 

si * from; Si * si+n; 
DI * T2; DI «- Di+?; 
DS * 6 CHRI 

fNd xffr; 

STREAM PROCEDURE XfERACFROM. NEXT1, NEXT2); 
PRT{651) e XFERA 

valuf from; 
begin St * from; si «. si + 6; 

DI * NEXTi; DI * Dl+2? 

5(IF SC > »0» THEN DS «■ CHr ELSE JUMP OUT); 

SI * SI+2; 

DI * NEXT2J DI * DI+21 

6(IF SC s ALPHA THEN DS * CHr ELSE JUMP OUT); 
END XFErAI 

BOOLEAN STREAM PROCEDURE CHECKFUN ( FROM* T00# N)f VALUE FROM. Nj 
PRTC652) = CHECKFUn 

BEGIN SI * FROM; Si «■ SI + Nl 

IF Sc * "0" THEN 

BEGIN SI * Sl+l; 

if sc ~ "n m then 

Begin si * si + i; tally * 1; 

di * too; di * Di+2; 

ds *■ 6 chr; 
end; 



83 IS 



02506050 T 
02507000 T 
02508000 T 
02509000 T 
02510000 T 
24 LONG* 
02511000 T 
02512000 T 
02513000 T 



0012 
0012 

0015 
0019 

0023 
NEXT SEG 
0024 
0024 
0024 



81 



02514000 T 0024 



02515000 
02516000 
02517000 
02518000 
02519000 
02520000 
02521000 
02522000 



0024 
0024 
0024 
0024 
0026 
0027 
0028 
0029 



02523000 T 0029 

START OF SEGMENT ********** 84 

02523100 T 0000 



02523200 


T 


0000 


02523300 


T 


0000 


02523400 


T 


0003 


02523500 


T 


0004 


02524000 


T 


0005 


02525000 


T 


0005 


02526000 


T 


0006 


02527000 


T 


0007 


02528000 


T 


0008 


02529000 


T 


0008 


02530000 


T 


0008 


02531000 


T 


0009 


02532000 


T 


0009 


02533000 


T 


0009 


02534000 


T 


0009 


02535000 


T 


0010 


02536000 


T 


0012 


02537000 


T 


0012 


02538000 


T 


0012 


02539000 


T 


0015 


02540000 


T 


0015 


02541000 


T 


0015 


02542000 


T 


0016 


02543000 


T 


0017 


02544000 


T 


0018 


02545000 


T 


0018 


02546000 


T 


0019 


02547000 


T 


0020 


02548000 


T 


0020 



L 

s~ 

c 

c 
c 
c 
c 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



(' ') 



v_ 



o 



o 



^ 



eNdi 
checkfun ♦• 

END CHFfKFUNj 
BOOLEAN STREAM 
PRTC653) 3 MORpTHAN6 

BEGIN S T * PI 
IF Sc * " » 
M0RETHAN6 * 
END M0RETHAN6I 
INTEGER !J ALPHA 



tally; 

PROCEDURE M0RETHAN6( 



P)l 



THEN TALLY 
TALLY! 

IDI 



1) 



STACK(F+2> 3 
STACKfF+3) - 

STACK(F+4) = 



I 
ID 



STOR 



\-- 



o 



o 
o 

o 

o 
o 

o 



INTEGER 
STOR 

IF ACCUMC1] b » » THEN 
BEGIN XTA * CHARJ FL0G(l6)> GO T 
IF CHAR * "3 » OR CHAR 3 «# 
IF CHAR ■ "* " THEN GO TO XI 

if char t n t * and char t "% 

IF M0RETHAN6CACCUM[2]) THEN GO T 
COMMfNT AT THIS POINT WE HAVE < 

this must be one of the follohin 

ASSjftNEMNT STATEMENT WITH SUfiSCR 
STATpMENT FUNCTfON DECLARATION, 
CALL. RfAL, ENTRY. GO TO. READ. WRl 
PUNCH! 
IF I * SEARCH(T) > THEN 

IF GETflD, CLASS = ARRAYID 
ID * T> ID, [3681?] «■ " "J 

for uo thru rsp Do if reserved 

♦RESLEN6THLPCIJ-*<1 THEN TRUE E 
RESERVFDWORDSLPCI+RSPI J»ST0R)) 

GO To XIT; 

FOUNnlJ 

NEXT * LPGLOBALtMl 

T «■ » "J 

XFER(ACR0» Tt NFXTACC* 

GO TO DONE! 

RESWo* 

COMMfNT AT THIS POINT 

to identify the statement 

ID «■ Tl ID, [36: 123 «■ » »» 



xit end; 

" then go to xi t j 

Tl 

" then go to rfswd? 
reswdj 

!D> ( , 

G* 

TPTED VARIABLE AT THE LEFT, 

TE, FORMAT, IF. DATA, CHAIN, PRtNT OR 



THEN GO TO XI T; 

W0RDSLPU3 = !D THEN IF (IF STOR 
LSE C0MPLETECHECKCACCUMC23# 
THEN Go FOUND1 I 



I-RFSLENGTHLPCn. IF I> 6 THEN 6 ELSE 1)1 



WE KNOW THE <ID> MUST BE A SPECIAL WORD 
TYPE! 



IF T b "ASSIGN" THEN 
BEGIN 

NfXTSCN * SCNI SCN *• 14* 

NfXTACC * NEXTACC2 * " 

XfEPACACRO. NEXTACC. NEXTACC2)! 

N F XT * II 

GO TO xit; 
fNqi 

for !*i thru rsh do if reserved 
res|.ength[i 3-4<l then true else 

tI+RSHll»IF SToR>8 THEN 8 ELSE 
XTA * T! FL0GC16)! GO To XjTj 
F0UND2» 
NEXT * I+i; 
T * » "I 



J 



WORDS[i3sID THEN IF (IF STOR* 

completechec k(accum[ 2 3 .reserved words 
stor)) then go found2 i 



02549000 T 0020 

02550000 T 0020 

02551000 T 0020 

02552000 T 0021 

02553000 T 0021 

02554000 T 0022 

02555000 T 0023 

02556000 T 0023 

02557000 T 0024 



02557100 T 0024 



c 



02558000 
02559000 
02560000 
02560100 
02561000 
02562000 
02563000 
02564000 
02565000 
02566000 
02567000 
02567100 
02568000 
02569000 
02570000 
02571000 
02571100 
02572000 
02573000 
02574000 
02575000 
02576000 
02577000 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 
02591000 
0259H00 
02592000 
02593000 
02594000 
02595000 
02596000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0024 
0026 
0030 
0033 
0034 
0037 
0039 
0039 
0039 
0039 
0039 
0039 
0039 
0041 
0044 
0046 
0055 
0060 
0064 
0065 
0065 
0066 
0066 
0071 
0073 
0073 
0073 
0073 
0075 
0076 
0076 
0078 
0079 
0080 
0081 
0085 
0085 
0087 
0092 
0098 
0100 

0101 

0102 



C 



L. 



c 
c 

/ — . 



o 



c 

c 
c 
c 
o 
o 
o 
o 
o 
o 



^J 



L 



vJ 



XFERfACRO. T» NEXTACC* I*RfSlENGTH C 1 3 » IF I> 6 THEN 6 ELSE I)? 

DONEl NEXTSCN * scn; 

SCN * 61 

IF NfXTACC = "FUNCTl" THEN 

IF CHECKFUNCACRO# NEXTACC. I+6) THEN SCN * 13? 
XITI 
E0ST0G*FAUSEi 

end checkrfseRVed? 



o 
u 

o 

O 
G 
C 

c 
o 

o 
o 

• — \ 

o 
o 

o 

o 
o 






BOOLEAN PROCEDURE CHECKOCTAL? 
PRT(654) a CHECKOCTAL 

BEG TN 

tNTereR s, t; label xitj 



8A IS 



02597000 T 
02598000 T 
02599000 T 
02600000 T 
02601000 T 
02602000 T 
02603000 T 
02604000 T 
120 LONG. 
02605000 T 



0103 
0107 
0108 
0109 
0110 

0114 
0115 
0115 
NEXT SEG 
0029 



C 

c 



61 



STACKfF+3) = S 
STACKfF+4) = T 

PRT(655) c COUNT 



02606000 T 0029 
02607000 T 0029 

start of Segment ********** 



85 



PRTC656) b cONV 



INTEGER STREAM PROCEDURE CoUNTt ACRV, T } ? VALUE ACRV.T ? 

BEGIn 

LOCAL A.B? SI«4,0C t; Sl*SI+7 ? 

IF S(J« W 1" THEN BEGIN SUACrVjIF SC=»0" THEN SUSI + 1 END ELSE SI*ACRV? 

IF Sc*" " THEN 

begin a*si ; 

17cif sc>"7" then begin tally.-17? jump out end else if sc< w 0» then 

bfgin if sc*» " then tally*17; jump out end? si*s!+h 

TALLY*TALLY+1) t 

b*tally? si*loc bj si*si+7 ? 

if sc="+ h then begin si*a? if sc> ff 3" then tally*17 end? 

END ? 

count*tally ? 
end of count ? 
alpha stream procedure convcacRv. s, t)? value acrv. s. t; 

BEGIN Sf *■ ACRV? IF Sc = "0" THEN Sy * S I + 1 J 
DI * L0C CONV? SKIP S OB? 

TCSKtP 3 SB? 3CTF SB ThfN f)S * SfT ELSE DS * RESET? SKjP 1 SB))? 
END CONV? 

IF UCOUNTJ ACR0,i) s THEN 
BEGIN S «• 1? 

IF T * CHAR * "+ " AND T # «& » THEN 

IF T s "- » THEN S * -l Ei.SE Go To XjT? 

SCANX(4» 4» 3» 3» 10. 10)? 

IF SCN * 10 THEN GO TO XIT? 

IF T«-C0UNTCACR1»2) - OR T > 16 THEN GO TO XJT J 

FnEXT * C0NVCACR1. Cl6-T)x3» T)? 

IF S < THEN FNEXT «• -FNEXT? 
END ELSE IF T < 17 THEN FNEXT*CONV C ACRO . ( 16-T )x3 . T ) ELSE GO To XIT i 
CHECKOCTAL * TRUE? 
NEXT * NUM? 
NUMTYPE * REALTYPE? 
XIT? 
END CHECKOCTAL? 



PROCEDURE HOLLERITH? 
PRTC657) = HOLLERITH 

BEGIN 

REAL T» C0L1» T2. ENDP? 
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02608000 T 0000 



02609000 
02610000 
02611000 
02612000 
02613000 
02614000 
02614010 
02614015 
02614020 
02614030 
02614040 
02614050 
02614060 
02615000 



02616000 T 
02617000 T 
02618000 T 
02619000 T 
02620000 T 
02620100 T 
02620200 T 
02621000 T 
02621100 T 
02622000 T 
02622100 T 
02622200 T 
02623000 T 
02623100 T 
02624000 T 
02625000 T 
02626000 T 
02627000 T 
02628000 T 
58 LONG. 
02629000 T 



0000 
0000 
0000 
0003 
0003 
0004 
0006 
0009 
0010 
0010 
0012 
0012 
0013 
0014 

0014 
0015 
0015 
0019 
0020 
0024 
0025 
0027 
0030 
0032 
0033 
0038 
0041 
0044 
0052 
0053 
0054 
0054 
0055 
NEXT SEG 
0029 



81 



02630000 T 0029 
02631000 T 0029 



c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



o 
o 
o 
o 
c 



o 



\_> 



'•u 



STACK(F+2) = T 

STACKfF+3) s C 0L1 

STACKfF+4) = T2 

STACK(F+5) = ENDP 



PRT(660) = STRCNT 



PRT(661) = RSTORF 



<w' 



'v' 



u 



u 

o 
o 
o 
o 
o 



o 
o 



START Of SfgMfNT ********** 



86 



LABEL XTT? 
INTEGER STREAM 

BEGIN 

Si * 5; 

di * d; 
end strcntj 

INTEGER STREAM 



PROCEDURE STRCNT(S»D»SZ)J VALUE S.SZJ 



DI «• DlDS * 8 LIT "00 «} DI 

di «• di + ?; ds «-sz chr; strcnT . 

PROCEDURE RST0RECS»D#SKP,5Z)J 



«• DI 
Si J 



VALUE St SKP, SZ; 

begtn 

DI * DI 

SI * SI DT <-DI + SKP| DS «• SZ CHRI RSTORE * SU 
END RSTORE? 
Fl * FNfXTJ 
numtype * STRiNgTYPEI 

T «■ & NCR[30J33«i5] & NCR[ 45 « 30 I 3] * 
COLl ♦ 4 INITIALNCRC30I33M53I 
ENDP *- COLl + ??.} 
STRfNGSlZE * 01 
WHlLr FI >0 DO 
BEGIN 
T2 ; IF Fl > 6 THEN 6 eLSf Fl ? 
IF STRINGSIZE > MAXSTRING THEN 

BEGIN FLAGC120)* STRINGSIZE * END* 
IF T + T?> ENDP THEN IF DCInPUT OR FREEFTQG THEN 

BEGIN XTA*BLANKS; FL0GC15O)? Go TO XIT END 
ELSE BEGIN 

IF TSSEDITOG THEN IF NOT DCINPUT THEN TSSEDCBLANKSi 1 ) I 
NCR «- STRCNTCNCR* STR I NGARRAY[ STR I NGSI ZE 3 » ENDP-T)! 
IF NOT CONTINUE THEN 
% 

BEGIN FL0GC43JJ GO TO XIT fNDJ 
IF READACARD THEN! 
IF LfSTOG THFN PRiNTcARDJ 

NcR * RST0REfNCR»STRTNGARRAY[sTRlNGSIZE]»ENDP"T+2.T2-(ENDP-T)); 

STRINGSIZE «• STRiNGStZE+1) 

F1 «• Fl - T2; 

T * COLl + 6 + T2 - (ENdP - T)J 
END FLSE 
BEGIN 

NcR ♦• STRCNT(NCR» STR I NrARRAYt STR I NqSi ZE 3 » T2)? 

STRINGSIZE * STRjNGSiZE + 1' 

T * T + T?J 

F? *• Fl - T2; 
ENDJ 
END! 

numtype * stringtype; 

SCN #. \i 
XJTS 
END HOLLERITH! 



02632000 
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0000 


02633000 


T 


0000 


02634000 


T 


0000 


02635000 


T 


0000 


02636000 


T 


0002 


02637000 


T 


0003 


02638000 


T 


0004 


02639000 


T 


0004 


02640000 


T 


0004 


02641000 


T 


0005 


02642000 


T 


0005 


02643000 


T 


0006 


02644000 


T 


0007 


02645000 


T 


0008 


02646000 


T 


0009 


02647000 


T 


0012 


02648000 


T 


0014 


02649000 


T 


0015 


02650000 


T 


0016 


02651000 


T 


0017 


02652000 


T 


0017 


02653000 


T 


0020 


02654000 


T 


0020 


02655000 


T 


0022 


02655500 


T 


0026 


02656000 


T 


0028 


02656100 


T 


0029 


02657000 


T 


0033 


02658000 


T 


0036 


02659000 


T 


0036 


02660000 


T 


0036 


02661000 


T 


0038 


02662000 


T 


0039 


02663000 


T 


0041 


02664000 


T 


0046 


02665000 


T 


0047 


02666000 


T 


0048 


02667000 


T 


0051 


02668000 


T 


0051 


02669000 


T 


0051 


02670000 


T 


0054 


02671000 


T 


0055 


02672000 


T 


0056 


02673000 


T 


0058 


02674000 


T 


0058 


02675000 


T 


0058 


02676000 


T 


0059 


02677000 


T 


0060 


02678000 


T 


0060 



C 

c 
c 



r 



C 

c 
c 
c 
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c 
c 
o 
o 
o 
o 
o 

o 



V J 



L 



O" 



o 



PROCEDURE OUOTESTRiNGJ 
PRTC662) = QUOTFSTRlNG 

BEGIN 

REAL CI 



G 



vj 



^_. : 



^ 



O 



STACKCF+2) s C 

LABEL 
ALPHA 

PRT{663) s= STRiNfiWORD 

VALUr 



02679000 T 0029 

02680000 T 0029 

02681000 T 0029 

START Of SFGMeNT ********** 



87 



xtt; 

STREAM 



PROCEDURE STRtNgWORd(S,D»SKP,SZ,C) 



o 



(J 



O 
O 

o 
o 

o 

c 



s,skp,szi 

BEGTN 

Label qt, x it; 
d t * DJ Si * si 

D| * DI+SkPJ 01 

tally * s K p; 

SZC IF SC b w«»» 
SC = 



«• Dl +? S 



SC B 

SC s 



if • f» 

ttjf. 



THEN 
THEN 
THEN 
THEN 



JUMP 
JUMP 
JUMP 
JUMP 



OUT 
OUT 
OUT 
OUT 



TO 
TO 
TO 
TO 



QTl 
QT; 
QTl 
XITJ 



IF 

IF 

IF 

OS ♦ GHR» TALLY «• TaLlY+1)I 
Gn TO X IT J 
QT* TALLY * TALLY+7; SI * SI+H 

x t t« stringword «- si; s * tally; 

St * LOC SJ DI * c; DS * WDS; 

end stringword; 

STRlNGSlZE * 0> 
DO 

BEGIN 

IF stringsizf > maxstring then 

BFGIN FLAGfl20); STRlNGSlZE * ENDl 

stRingarrayestringsize] * blanks; 

NrR * stringwordcncr, stRingarraycstringsizei* o. 6, c); 

IF C<6 then tf dcinput or fRefftog 

then begin xta*blanks; flogciso); go to xit end 
el,sf begin 



tf tsseditog then if 
if not continue then 



not dcinput then tssed<blanks,i) ; 



END 



BEGIN FL0GCI21); GO TO XIT EnO; 

if readacard then; 

IF LISTOG THEN PRINTcARD; 

NCR * STRInGWORDCnCR, STR I nGARRAYC STR I NGS I ZE 

End; 

STRlNGSlZE * STRlNGSlZE + II 
END UNTIL C > 7| 

IF C s 7 THEN STRlNGSlZE * STR I NGSI ZE-1 I 
FNEXT * STRlNGSlZE; 

next *■ numi 

symbol «■ name * str i ngarray t 03 ; 

numtyPf * stringtype; 

SCN * II 
X I T S 

QuotestRing; 



3»C»6-C»C3; 



PRTC664) s 



PROCEDURE 
CHECKPERlOD 

begin 



checkperiod; 
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02682000 


T 


0000 


02683000 


T 


0000 


02684000 


T 


0000 


02685000 


T 


0000 


02686000 


T 


0000 


02687000 


T 


0000 


02688000 


T 


0000 


02689000 


T 


0001 


02690000 


T 


0002 


02691000 


T 


0004 


02692000 


T 


0005 


02693000 


T 


0006 


02694000 


T 


0007 


02695000 


T 


0007 


02696000 


T 


0008 


02697000 


T 


0008 


02698000 


T 


0009 


02699000 


T 


0010 


02700000 


T 


ooa 


02701000 


T 


0012 


02702000 


T 


0013 


02703000 


T 


0013 


02704000 


T 


0013 


02705000 


T 


0015 


02706000 


T 


0017 


02707000 


T 


0020 


02707500 


T 


0022 


02708000 


T 


0025 


02708100 


T 


0026 


02709000 


T 


0029 


02710000 


T 


0030 


0271.1000 


T 


0030 


02712000 


T 


0032 


02713000 


T 


0033 


02714000 


T 


0035 


02715000 


T 


0038 


02716000 


T 


0038 


02717000 


T 


0039 


02718000 


T 


0041 


02719000 


T 


0043 


02720000 


T 


0044 


02721000 


T 


0045 


02722000 


T 


0046 


02723000 


T 


0047 


02724000 


T 


0048 


02725000 


T 


0048 


51 LONG 


it 


NEXT SEG 


02726000 


T 


0029 
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02727000 T 0029 



^ 



r 



C 



L, 



c 
c 
c 
c 






c 



o 
o 
o 
o 
o 
o 
o 
o 



^ 



O STACKfF+2) a S 

STACKCF + 3) =i T 

STACKCf+a) a I 
O STACKfF+5) = TS 

INTEGER C2> 

STACK(F+6) s C2 
^ BOOLFAN CONJ 

STACKCF+7) = CON 



LABEL, FRACTION, XTT. EXPONfNj. EXPONENTS T GN; 02728000 T 0029 

start op segment ********** sa C 

LABEL, NUMFINI, FPLP> CHKEXpJ 02729000 T 0000 

ALPHA S» T, J. TS»' 02730000 T 0000 



O 

o 



IF T * CHAR * % " THFN GO TO CHKEXp; 
SCANXC4. 9, 3f 8» 10» 11); 0273P000 T 0009 C 

IF T * EXACCUMC13 = " " THEN 

BEGIN IF NUMTYPE * DOUBTYPp THFN NUMTYPE «■ REALTYPE? GO TO XIT END; 
IF T = »E " OR T s »D " THEN GO TO EXPONENTSI GN; 02734000 T 0011 C 

IF T*[12'6] £ 9 THEN GO TO FRACTION; 
IF t! r IB I 63 < 9 THEN 



BEGIN 

IF S * T, t 12:63 * "E'» AND S t M 0" THEN 



fi -o; 

^ I * ?» 

SCANXU* 4» 3» 3» 20> 10); 

IF SfN = 20 THEN 
^ EXP0WENTSIGN5 



BEGIN IF S * EXACCUMCOJ / » + » AND S * "R » THEN 



r^ 



^ 



BFGIN XTA «■ T; FL0GC63); GO TO XiT END? 
^ EXACCUMtl],Cl2«6] * 01 

I * 1> GO TO exponent; 
end; 
^ if exaccumcO] # », »» then go to xit; 

FOR I * STEP 1 UNTIL lO DO 
IF T s pERlOOWOROtlJ THEN 
^ BEGIN EXACCUMt?] * I; SCN * 1?; GO TO X it end; 

go T n xit; 

_ FRACTION* NEXT «. NUM; 

^ IF NUMTYPE *D0UBTYPE THEN NUMTYPE * REAITYPEJ XTA * ACRU 

FPLPj 
Fl * o; 
O XTA * C0NVERTCF1»C1»XTA »TS)I 

C2. * C2 + CD 

IF Cf2 <- FNEXTxTENtCU + Fl) S MAX 
^ THEN FNEXT * F2 

ELSf BFGIN 

NUMTYPE * DOUBTYPpf 
; ^ CON * TRUE? 

DOUBLE (FNeXT,DBLOw# TEN [Cl],TEN[69+cn»x# 

fi,o»+,*»fnext»dblow)? 
^ end; 

IF TS < 9 THEN r,0 TO FPLP) 

Fl * 01 wr , utvvv , v „ ,, 

^ if t «• fxaccumfo] / «e " and t * h d » then 02763000 t 0059 o 

begin if scn = 8 then scn «. 3 else scn * ioi 
go to numfini? 
^ end; 

chkexpi fnext «. fnext x 1,0; 



02730050 
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02730100 
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02731000 
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0000 


02732000 
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0002 


02733000 
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0004 


02733500 
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0005 


02734000 


T 


oon 


02735000 


T 


0013 


02736000 
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0015 


02737000 
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0016 


02738000 


T 


0017 


02739000 
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0019 


02740000 


T 


0025 


02741000 


T 


0027 


02742000 


T 


0028 


02743000 


T 


0028 


02744000 


T 


0030 


02745000 


T 


0032 


02746000 


T 


0033 


02747000 


T 


0038 


02748000 


T 


0038 


02749000 


T 


0039 


02750000 


T 


0042 


02751000 


T 


0043 


02752000 


T 


0043 


02753000 


T 


0046 


02754000 


T 


0047 


02755000 


T 


0049 


02756000 


T 


0050 


02757000 


T 


0052 


02757100 


T 


0052 


02758000 


T 


0053 


02759000 


T 


0056 


02760000 


T 


0057 


02761000 


T 


0057 


02762000 


T 


0059 


02763000 


T 


0059 


02764000 


T 


0062 


02765000 


T 


0068 


02766000 


T 


0069 


02767000 


T 


0069 


02768000 


T 


0071 


02769000 


T 


0072 


02770000 


T 


0072 


02771000 


T 


0074 


02772000 


T 


0075 


02773000 


T 


0076 



c 
c 



c 



o 
o 
o 



o 
o 
o 
o 
o 



IF 



" THEN I «. -1 
XTA - SJ FL0G<63); 
4, 3# 3* 10, 10)J 



ELSE 
ScN * 



10; GO TO XIT end; 



O 

o 
o 
o 
o 



o 



o 



o 



o 



'O 



O 
O 

o 
o 
o 
o 

G 



then 

S ELSE 



T; FL0GC63); GO TO XIT END; 



io; 



5 - iii 
BEGIN 
ScANX(4, 

end; 

IF (S * EXACCUMrl]).rl2*6J > 9 
BEGIN XTA «■ IF S # BLANKS THEN 
EXPONENT' 

IF NuMTYPE * DOUBTYPE THEN NUMTYPE * REALTYPEJ 
IF T,tlJ?l6] « "0" THEN NUMTYPf * DOUBTYPE! 

if SrN b 8 Then scn «■ 3 else if scn a n thfn scn 

XTA ; ACRU 

XTA «• C0NVERT(F1»C1»XTA »TS)J 

if i < o then fi * -fi; 

nUmfini; 

ci * fi - c?; 

IF I *• (ABSCCl + CFNEXT, t3i6]4FNEXTCl»2tl]))) > 63 ORCCABS(Cl) = 
FNEXT > 5) AND ABS(Fl) * 69} 
THEN BFGIN XTA «- T; FL0GC87)! Go TO XIT* END; 
IF NUMTYPE * DOUBTYPE THEN 
BEGIN 

IF C!> THEN FNEXT * FnEXT x 
ELSE FNEXT * FNEXT / 
END FLSE 
BEGIN 
IF 



I OR 



TENCCt J 
TENC-Cl]; 



FND 



CI > o 

THEN D0UBLE(FNEXT»DBL0W»TENCC1 J*TFNC69+cn»x,*,FNEXT»DBL0W) 
ELSE D0UBLEC FNE*T, DBL0W • TEN [ -C H » TEN [69-C1 ]#/#*» FNEXT, DBL0W) I 
IF CON THEN IF DBL0W.[9;333 * MAX,[9J33] THEN 
TF FNEXT, [316] LSS i4 

THEN IF B00LEAN(FNEXT,r2»l]) THEN 

BEGIN DBL0W 5= 01 FNEXT u FNEXT + 1 &FNEXT [ 2 : 2 J 7 ] ; END? 

end; 

XITS 

chfcKPfRiod; 



02774000 
02775000 

02776000 
02777000 
02778000 
02778100 
02779000 
02779500 
02780000 
02781000 
02782000 
02783000 
02784000 
02785000 
02786000 
02787000 
02787500 
02788000 
02789000 
02790000 
02791000 
02792000 
02793000 
02794000 
02795000 
02796000 
02797000 
02797100 
02797150 
02797200 
02797300 
02798000 
02799000 
02800000 



LABEL L00P0, NUMBER * 

LABEL L.XlTI 

LABEL Li'#L?»L3»L4»|,5»L6,L7,L8,L9,Ll0iLll»Ll?»Ll3»L14»Ll5»L16#Ll7t 

Li8#Ll9»L20#L21»BK ; 
SWITCH CASEL«-L1»L2»L3).L4»L5»LA»L7»L8»L9*L10»L11»L12»L13»L14>L15» 

Ll6»L17'Ll8»Ll9»L2o»L2l ; 
LABEL LOOP* CASESTMT; %994- 

LABEL CaSE0»CaSE1hCASE2»CASE3,CaSE4, CASES, CASE6»CASE7; X994- 

LABEL CaSE8»CASE9»CASE10»CaSEH.CASE12iCASE13»CASE14| X994* 

prec*next*fnext«-realcscanenter*false) ; 

casestmts 

case scn of 

BEGIN 
PRTC665) = *CASE STATEMrNT DESCRIPTOR* 

CASF0J £994- 

go to ir labelr thfn cases else casfi; 



88 IS 153 LONG* 



02801000 
02802000 
02802100 
02802200 
02802300 
02802400 
02803000 
02803100 
02803200 
02804000 
02805000 
02806000 
02807000 



0078 
0081 

0088 
0090 
0090 
0092 

0097 
0098 
0100 
0102 
0107 
0107 
0110 
0112 
0113 
0114 

0118 
0120 
0123 
0124 
0125 
0126 
0130 
0130 
0130 
0130 
0135 
0139 
0142 
0143 
0145 
0148 
0148 
0149 
NEXT SEG 
0029 
0029 
0029 
0029 
0029 
0031 
0042 
0042 
0042 
0042 
0045 
0046 
0046 



81 



PRTC666) = 
PRT(667) = 



CASE5 
CASE1 



CASElS 

BEGIN 

L00P0J 

ACR * acRO; 



02807999 C 0046 

02808000 T 0047 



02809000 T 0052 

02810000 T 0053 

02810100 T 0053 

02811000 T 0053 



o 



c 
o 
c 



o 



c 

o 






o 
o 
o 
o 
o 



c 
o 
o 
o 
o 

c 



v_- 



accum[ii *• blanks; 

LOOPt 

if advance(Ncr» acr, chro, ncR» acr) then 
if continue then 



O 



■U 



W 



<J 



\~s 



% 



o 



u 



O 



(J 

O 



O 
O 

o 
o 

o 



IF READACARD THEN 
BEGIN 

IF LISTOG THEN pRlNTCARD ; 
IF ACR.C33J15DSACCUMST0P THEN 

BEGIN XTA*BUNKS; FLQGC175); GO L00P0 END I 
GO LOOP ; 
END 
FLSE IF T * ACCUMrl] = » » THEN GO TO CASE5 ELSE SCN + 4 
ELSE IF T * ACCUMC13 = » » THEN 
GO TO CASE3 ELSE SCN * 3 
ELSE IF T «- ACCUMnl 9 » " THEN GO TO CASE2 ELSE SCN * 2; 
ENDI 
CASE?« 

BEGIN T «• CHAR? SCN * 1 END* 
CASE3! 

begin t * »♦; »; next - semi j scn «• o; 

TF FOSTOG THEN IF LOfilFTOfi THeN BEGIN LOGIFTOG * FALSE? XTA * Tl 

flag(iOd; end; 

Go To XiTl 

end; 

CASE4I *994- 

BEGIN T * '»; »j NEXT * SEmI? SCn * 5; Go To XIT END; 

CASE5J 

BEGIN T * "<E0F> »; NEXT «■ EOF; EOSTOG * FALSE; GO TO XIT END; 

CASE6J SS994" 

begin t + accumtl] * nextacc; scn «• nextscn; 

if t = » m then go to casestmt; 
end; 

CASE7? S994- 

BEGlN EOSTOfi + TRUE? 

IF LaBELR THEN GO TO CASES ELSE GO TO CASEi; 

end; 

CASE8S *994- 

BEGIN T * FXACCUMCDI ScN * 3 END? 

CASE^J 2994- 

BEGJN T * FXACCUMdJ; ScN * 4 END* 

CASElO; *994«" 

BEGIN T * CHAR * EXACCUM[ 0] ; SCN * 1 END; 

CASeIH «994- 

begtn t * EXAccuMtu; scn * 10 end; 

CASE12I X994- 

begin t * exaccumcu; scn * a 

IF n «■ EXACCUMC?] < 1 THEN 

BEGIn NEXT «• nUm; FNEXT «. N ; GO TO XIT EnDJ 

NEXT * 0; 

OP * N»1 ; 

PREC * IF N 6 4 THEN N-i EL&E 4; 

GO To XIT; 

end; 

CASE135 3S994- 

BEGIN T » "FUNCTI"; NEXT * 16* SCN * 6; GO TO XIT END; 

CASE14: £994- 



02812000 
0281 3000 

02814000 
028)5000 
02816000 
02817000 
02818000 
02818010 
02818020 
02818030 
02818040 
02818050 
02819000 
02820000 
02821000 
02822000 
02823000 
02824000 
02825000 
02826000 
02827000 
02827100 
02827200 
02827300 
02827400 
02827999 
02828000 
02829000 
02830000 
02830999 
02831000 
02832000 
02833000 
02833999 
02834000 
02835000 
02836000 
02836999 
02837000 
02837999 
02838000 
02838999 
02839000 
02839999 
02840000 
02840999 
02841000 
02842000 
02843000 
02844000 
02845000 
02846000 
02847000 
02848000 
02848999 
02849000 
02849999 



0053 
0055 

0055 
0057 
0058 
0058 
0059 
0059 
0061 
0062 
0065 
0065 
0065 
0068 
0072 
0073 
0078 
0079 
0080 
0082 
0083 
0085 
0089 
0090 
0093 
0093 
0094 
0098 
0099 
0103 
0104 
0106 
0107 
0108 
0109 
0109 
0111 
0111 
0112 
0114 
0115 
0117 
0118 
0121 
0122 
0124 
0125 
0126 
0128 
0132 
0132 
0134 
0137 
0137 
0138 
0139 
0143 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 






o 
o 
o 

o 



u 



r- 



o 



: \ 



. ) 



c 



BEGIN T *■ ACCUM[1] * NEXTACCJ 

NEXTaCC «• NpXTACC?? SCN «- 6; 02851000 T 01*45 C 

FNDJ 

pNd of tasf statement; 



IF NOT fILFTOg THEN 

^ if eostog then 



^ 



v^ 



C 



C 

c 



BfGIN 

next * o; 
^ if t = »; » then go to casestmt; 

checkreservedj 
if next > then go to X IT; 

'^ EnD> 

IF (IDlNF0*T!PE[T,ri2»6J3)>0 THEN 
BEGIN 

BK » next*id ; 

IF NOT FILETOG THEN 

IF SCANENTER«-CCFNEXT«.SFARCHCT))*o) THEN FNEXT*ENTER( I I NFO» T) 
] ^ J ELSE IF GET(FNEXT),CLASS=DUMMY THEN FNEXT-GET CFNEXT+2) .BASE i 02862500 T 0162 C 

GO XI T I 

END ; 
^ GO CASELt-TDINFO]; % SEE INITIALIZATION OF "TIPE'% LINE 03433100X993- 02862800 P 0170 C 

LI! 2DIGITS 2993 

BEGIN NuMTYPF * INTYPE* NEXT «- NUM; XTA «. ACROJ 
( - FNfxT «- DBLOW * CI * Oj 

XTA * cONVERTCFNEXTfCl.XTA »TS)| 
WHILf TS < 9 DO 
BfGIN 

XTA * C0NVERTCF1.C1.XTA #TS)I 

IF CF2 * FNFXTxTENtCl3 + Fn < MAX 

'^ then fnext * f2 

else begin 

numtype * doubtype* 

O D0UBlEcFNEXT,DBloW»TEncCU,TEN[69 + CU.x, 02874000 T 0189 O 

fi»o»+»*»fnext»dblow); 
end; 

^ EnDI 

IF CHAR 5 ", " OR CHAR * "E » OR CHAR = "D " THEN 

CHECKPERIOD 
ELSE IF CHAR = "H " THEN HOLLERITH; 02883000 T 01*97 O 

GO To XJTJ 
F-NDJ 

^ L2» X > 3:993- 02898100 P 0206 O 

BEGIN PREC * 4; OP * T, GO TO XjT END; 

L3t % > X99 3- 

^ BEGIN PREC * 4; OP * 8; GO TO XiT END; 

L4? U OR + 3993- 

BEGIN PREC * 5; OP * 10; N E XT * PLUS; GO TO XlT END? 

U l^ 5t * t ?993- 02910100 P 0212 O 

BFGIN 

fnext «- dblow ♦• cl <• 0; numtype * realtypej 
^ checkpfriod; 

t * fxaccum[13; 

IF SrN s 12 THEN 
^ BEGTN ScN «• 1? 

IF N * FXACCUMm < 1 THEN 



02850000 


T 


0144 




02851000 


T 


0145 




02852000 


T 


0147 




02853000 


T 


0147 




start of segment 


********** 


89 


89 IS 16 LONG* 


NEXT SEG 


81 


02854000 


T 


0148 




02855000 


T 


0148 




02856000 


T 


0149 




02857000 


T 


0150 




02858000 


T 


0150 




02859000 


T 


0152 




02860000 


T 


0152 




02861000 


T 


0153 




02862000 


T 


0153 




02862100 


T 


0155 




02862200 


T 


0156 




02862300 


T 


0157 




02862400 


T 


0158 




02862500 


T 


0162 




02862600 


T 


0169 




02862700 


T 


0170 




02862800 


P 


0170 




02863000 


P 


0172 




02864000 


T 


0173 




02865000 


T 


0175 




02866000 


T 


0177 




02867000 


T 


0179 




02868000 


T 


0181 




02869000 


T 


0181 




02870000 


T 


0184 




02871000 


T 


0186 




02872000 


T 


0187 




02873000 


T 


0188 




02874000 


T 


0189 




02875000 


T 


0191 




02876000 


T 


0193 




02877000 


T 


0193 




02878000 


T 


0193 




02879000 


T 


0197 




02883000 


T 


0197 




02884000 


T 


0204 




02885000 


T 


0206 




02898100 


P 


0206 




02899000 


T 


0206 




02899100 


P 


0208 




02900000 


T 


0208 




02900100 


P 


0210 




02901000 


T 


0210 




02910100 


P 


0212 




02911000 


T 


0213 




02912000 


T 


0213 




02913000 


T 


0215 




02914000 


T 


0216 




02915000 


T 


0217 




02916000 


T 


0217 




02917000 


T 


0219 





c 

c 



o 



o 



o 
o 
o 

c 



^ 



o 



vj 



O 



, ^' 



<J 



V_^ 



O 



O 



.•"-, 



o 



o 



'w 1 

o 
o 
o 



BEGIN 

NpXT «, N Um? FNEXT «• NJ 

NUMTYPE * LOGTYpE; Go To XIT; 

end; 

NEXT * 01 

op «• N-u 

PREC * IF N < 4 THEN N»i ELSE 41 
GO To XI T; 

end; 

IF NfXT / NUM THEN BEGIN NeXT * NUM; XTA * TJ FL0GC141) END? 

GO TO XiTl 
END? 
L6i % % OR C 

BEGIN NfXT «• UPAREN; GO TO XIT FNDI 
L7i % < 

BEGIN PREC * OP * Hi GO TO XIT END; 
L8J % LETTER 

BEGIN if DATATOg THEN IF CHECKOcTAL THEN GO TO X IT? 
IDINFO«-TlPE[12l; GO BK ; 

fNd; 

L9j % $ 

BFGTN NrXT - DOLLAR; GO TO XIT FNDJ 

L10« % * 

IF CHECxEXpfNCR. NCR. T) ThEN 

BEGIN PREC «• 9; OP *■ 15J NEXT * UPARRoWi GO To XIT END ELSE 

L11 » 

BEGIN PREC * 7; OP «- 13; NEXT * STARJ GO To XIT ENDJ 

L12* % - 

BEGIN PREC «■ 5J OP * 111 NEXT * MINUS; GO To XlT END! 

LI 3 » 3! ) OR t 

BEGIN NFXT * RPARENI GO TO XIT END; 

L14J % I 

BEGIN NfXT * SEMI! GO TO XlT fNoJ 

L15I 3! < 

BEGIN PREC * 4j OP *• 5; GO TO XjT END; 

L16I % / 

REGIN PREC * 71 OP «• 14; NfXT *• SLASH! GO TO XlT END; 

L17I % 1 

BEGIN NfXT «• COMMA; GO TO XIT END! 

L18» % * 

BEGIN PREC * 4; OP «• 9; GO TO XjT END; 

L19J % * OR *■ OR # 

BEGIN NrXT * EQUAL; GO TO XIT ENDJ 

L20! 3! ] 

BEGIN XTA «• T; FLAG(O); GO TO CASESTMT ENq; 

L2lt % » OR J OR P 

begtn quotfstring; go to xtt fnd; 

X T T s 

IF DEBUfiTOG THEN WRI TAL I STf FD. 3 , NEXT, T, » 



*, 0,0,0,0,05 ; 



o 
o 



xta * name * t; 
end scan; 

procedure wrapup; 

PRTC670) s WRAPUP 

COMMENT WRAPUP OF COMP I LI AT I ON; 
BEGTN 





02918000 


T 


0220 




02919000 


T 


0221 




02920000 


T 


0222 




02921000 


T 


0223 




02922000 


T 


0223 




02923000 


T 


0224 




02924000 


T 


0225 




02924100 


T 


0229 




02925000 


T 


0229 




02925100 


T 


0229 




02926000 


T 


0233 




02927000 


T 


0233 


%993- 


02929100 


P 


0233 




02930000 


T 


0234 


*993- 


02930100 


P 


0235 




02931000 


T 


0236 


*993- 


02938100 


P 


0237 




02939000 


T 


0238 




02939100 


T 


0240 




02939200 


T 


0242 


9?993- 


02942100 


P 


0242 




02943000 


T 


0242 


%993- 


02943100 


P 


0243 




02944000 


T 


0244 




02945000 


T 


0245 




02945100 


T 


0249 




02946000 


T 


0250 


*993- 


02946100 


P 


0252 




02947000 


T 


0253 


2993- 


02947100 


P 


0255 




02948000 


T 


0256 


2993- 


02948100 


P 


0257 




02949000 


T 


0258 


2993- 


02949100 


P 


0259 




02950000 


T 


0260 


2993- 


02951100 


P 


0262 




02952000 


T 


0262 


2993- 


02960100 


P 


0264 




02961000 


T 


0265 


2993- 


02962100 


P 


0266 




02963000 


T 


0267 


2993- 


02963100 


P 


0269 




02964000 


T 


0269 


2993- 


02964100 


P 


0270 




02965000 


T 


0271 


2993- 


02965100 


P 


0273 




02966000 


T 


0273 




02971000 


T 


0274 




02972000 


T 


0274 




02973000 


T 


0278 




02974000 


T 


0278 




02975000 


T 


0279 



c 



81 IS 285 LONG, NEXT SEG 
02976000 T 0506 

02977000 T 0506 
02978000 T 0506 



r ' 

c 
c 



c 



c 
c 
c 







o 
o 
o 
o 



o 



c 

c 



u 



u 



u 



^J 



u 

o 



o 



O 



O 

o 
o 
o 
o 



ARRAY PRTtO«7,OU27]. 

STACKfF+2) = PRT 

SEGDIrT[OI7.0il27]i 
STACK(F+3) a SEGDICT 

SEo0f0J29]| 
STACKfF+4) = SEGO 

ARRAY FTLESrO;BlGGFSTF!LENB]J 
STACKfF+5) * FIUFS 

INTEGER THEBJGGESTJ 
STACK(F+6) a THEBIGGEST 

SAVE ARRAY FpB|" « 102? 3 * % FILE PARAMETER BLOCK 
STACK(F+7) a FpB 

REAL FPS»FpEJ % START AND END OF FPB 

STACKfF+10) = FPS 
STACK{F+li) = FPE 

REAL gsfg»pri»fid»mfid»idnm»filtypifpbi; 

STACK(F+12) a GSEG 
STACK(F+13) 9 PRI 
STACKtF+ia) = FID 
STACKcF+15) - MFID 
STACK(F+16) a IDNM 
STACKfF+17) = FILTYP 
STACK(F+20) s FPBI 

BOOLEAN ALF* 
STACKfF+21) = ALF 

REAL PRTADR* SEGMNT, LNK» TSEgSz* Tit 1> FPBSZJ 
STACKfF+22) = PRTADR 
STACKfF+23) - SFfiMNT 
STACK<F+24) a LNK 
STACKfF;?5) a T5EGSZ 
STACKfF+26) = Tt 
STACK(E+27) ' I 
STACK(F+30) s FPBSZ 

DEFINE 

SpDEUNs FpBSZ#» 
ENDdEF = jM 

ARRAY InTLOCCO»1503; 
STACK(F+31) s INTLOC 

REAL JJ 
STACK(F+32) a J 

FORMAT SEGUSCA6, " IS SEGMENT "> I4# 



02979000 T 0506 

START Of SFGMeNT ********** 

02980000 T 0002 

02981000 T 0004 

02982000 T 0005 

02983000 T 0007 

02984000 T 0007 

02985000 T 0009 

02986000 T 0009 



90 



02987000 T 0009 
02988000 T 0009 



PRT(671) * SFGUS 



% PRT IS •♦» A4» •♦,")* 



LIST SEfiLS(!DNM,NXAVlL#Tl)l 
PRTC672) a +LIST, LABEL, OR SEGMENT DESCRIPTOR* 
STACK(F+33) = SFGLS 

LABEL La» FNDWRAPUPI 

Label qqqdiskdffaultj 

COMMENT FORMAT Of SEGMENT DICTIONARY 'RUN Tl ME 
DEFINE SgTYPF- fl'2]#. %0 a PROGRAM SEGMENTS 
SGTYPCc 114612*. X] a MCP INTRINSIC 

%? = DATA SEGMENT 
PRTLINKF= [8H0]#, % LINK TO FIRT PRT ENTRY 
PRTblNKCs 81 38 * 1 0## 



02988900 T 0009 

02988910 T 0009 

02988990 T 0009 

02989000 T 0009 

02990000 T 0011 

02991000 T 0011 
START Of SEGMENT ********** 

02992000 T 0011 
91 IS 12 LONGf NEXT SEG 
02993000 T 0011 



S503- 



J 



02997000 
02997010 
02998000 
02999000 
03000000 
03001000 
03002000 
03003000 



0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 



91 



90 



c 



o 






C 

c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



\~J 



u 



V .,' 



u 



SGLCF b U8I1«5J#» X SEGMENT SIZE 03004000 T 0019 r > 

O SGLCC = 23!36;10#» 03005000 T 0019 ^ 

DKADRF - C33»l5J#t * RELATIVE DISK ADDRESS OF SEGMENT 03006000 T 0019 

% OR MCP INTRINSIC NUMBER 03007000 T 0019 ,-. 

C DKADRC = 33tl3tl5#S 03008000 T 0019 ^ 

COMMENT FORMAT OF FIRST SEGMENT OF CODE FILE- RUN TIME; 03009000 T 0019 

COMMENT SFG0C0J29] 03010000 T 0019 

C WORD CONTENTS 03011000 T 0019 U 

LOCATION OF SEGMENT DICTIONARY 03012000 T 0019 

1 SIZE OF SEGMENT DICTIONARY 03013000 T 0019 

O 2 UOcATtON OF PRT 03010000 T 0019 O 

3 SIZE OF PRT 03015000 T 0019 

4 LOCATION OF FILE PARAMETER BLOCK 03016000 T 0019 

G 5 SIZE OF FILf PARAMETER BLOCK 03017000 T 0019 U 

6 STARTING SEGMENT NUMBER 03018000 T 0019 

7-C2I1] [ND FORTRAN FAULT DEC 03018100 T 0019 

O 7-CJ8U5] NuMBfR OF FILES 03019000 T 0019 O 

7-C33H5] CORE Rf9UiRED/64 03020000 T 0019 

03021000 T 0019 

O COMMENT FORMAT Of PRT* 03022000 T 0019 U 

* FLGF p C0«4] s HOI ■ SET BY STREAM 03023000 T 0019 

DEFINE MODEF b£4I2]#* % = ThUNK 03024000 T 0019 ^ 

U M0DEC=4!46!2#» % 1 = WORD MODE PROGRAM DESCRIPTOR 03025000 T 00l9 ^ 

% 2 = LABEL DESCRIPTOR 03026000 T 00l9 

% 3 = CHARACTER MODE PROGRAM DESCRIPTOR 03027000 T 0019 -. 

C STOPF =[6J13#» % STOPPER = 1 FOR LAST DESCRIPTOR IN 03028000 T 0019 ^ 

ST0PC*6:47?1#» % CHAIN OF SAME SEGMENT DESCRIPTORS 03029000 T 0019 

LINKF -[7$113#» * IF STOP * THEN PRTLINK 03030000 T 0019 _ 

C LINKC=7«37S11#» * ELSE LINK TO SEGDICT 03031000 T 0019 U 

FFF »C18I153#»X INDEX INTO SEGMENT DICTIONARY 03032000 T 0019 

FFC =18J33!15#» 03033000 T 0019 

C SI NX s [33*15]#j3! RELATIVE ADDRESS INTO SEGMENT 03034000 T 0019 U 

DEFINE PDR = C37«5]#, 03035000 T 0019 

PDC b f42l6]#; 03036000 T 0019 

C REAL STREAM PROCEDURE MKABSCF)) 03037000 T 0019 O 
PRT(673) = MKABS 

BEGTN 03038000 T 0019 

O ST * FJ MKABS «- Si; 03039000 T 0020 O 

END MKABSJ 03040000 T 0020 

REAL STRFAM PROCEDURE BUlLnFPRCnESTjFTLNUMfFlLTYP.MFID.FIDtTDSZ* 03041000 T 0021 



U PRTf674) b BUILDFPB 



IDNMtSPDEUN); 03042000 T 0021 

value dest,idsz,spdeun* 03043000 t 0021 

O BEGIN 03044000 T 0021 

DI * DEST; 03045000 T 0022 

Si + FILNUMJ SI * SI + 6> DS * 2 CHRJ 03046000 T 0022 

O SI * FILTYPJ SI * SI + 11 DS * CHR1 03047000 T 0023 

SI * MFIDl SI + SI + 1{ DS * 7 CHR; 03048000 T 0023 

SI «■ FID; SI «• Si + 1 I DS * 7 CHRJ 03049000 T 0024 

O si * loc idsz; si * si * 7; ds * chr; 03050000 t 0025 

SJ * IDNM; SI «• SI + 1) DS «• IDSZ CHR; 03051000 T 0026 

Sl*LOC SPdEUNJSI*-SI+6JdS*2 CHRi% DISK SPEED & EU NUMBER+1 03051200 T 0027 

O BUILDFPB * DI) 03052000 T 0027 ^' 

DS * 2 LIT "0"; 03053000 T 0028 

END BUILDFPB; 03054000 T 0028 

O REAL STRFAM PROCEDURE GlTSZCF)? 03055000 T 0029 U 

PRTC675) « filTSZ 



o 

o 



o 
o 
o 
o 

n 



o 



u 



u 



u 



o 



o 



L/ 



o 



o 



o 



^ 



o 
o 
o 
o 
o 
o 

o 



BEGiN 

St * F? Si *Sl + 7; TALLY * 71 
3f IF SC * " " THEN JUMP OUT? 

Si *Si - l; TALLY * TALLY + 63; D ; 
GtTSZ * TALLYJ 

END GfTSZ? 

strfam procedure move(F»t,sz)j valuf sz? 

PRT(676) = MOVE 

BEGIN 

Si * fj di *t; ds «. sz WDS; 

END MOVE* 
INTEGER PROCEDURE MOVEANDBLOCK CFROM. S I ZE 5 I VALUE SIZE; 
PRTC677) « MOVEANDBLOCK 

ARRAY FROMCO»OJ* INTEGER SIZE? 
BEGIN 

REAL T.NSEGS.J^i; 

STACK(F+3) = T 

STACK(F+4) s nsfgs 

STACK{F+5) s J 

STACKCF+6) = I 



03056000 
03057000 
03058000 
03059000 

03060000 
03061000 

03062000 



0029 
0030 

0030 
0032 

0033 
0033 

0034 



PRT(700) = M2 



STRfAM PROCEDURE M2CF»T); BFGIN Sl*F? OI*T) DS * 2 WDS; END M2J 

nse6s * csize+29) di v 30? 

if daloc div chunk < t «• (naloc + nsegs) di v chunk 

then daloc * chunk * t? 
moveandblock *■ daloc? 
do begin for j *• step 2 while j < 30 and ksjze do 

BEGIN 

M2fFR0Mti;t36»5]»|.[4i I 7 ] ] » CODEf J ) ) ? 
I * 1+?? 
END? 

WRITE(C0DE[DAL0C3)? 
DALOC «■ DALOC +\i 
END UNTIL I * SIZE? 
END MOVEANDBLOCK? 

STREAM PROCEDURE MDESC C VLU. PRT ) ? VALUE VLU? 
PRTC701) * MDESC 

BEGIN 

DI * LOC VLU? OS * SfTj X FLAG BIT 
DI * PRT; SI «• LOC VLU; DS * WDS; 
END MDFSC? 
INTFGER STRFAM PROCEDURE MaKEtNTCS); 
PRTC702) 5 MAKetNT 

begin label loop; local t; 
si * s; si «• si + 3? 

LOOP" lp Sc * M 0" THEN 

BfGIN TALLY * TALLY +1> Sj * SI + II GO TO LOOP; END? 

t + tally; si * s? sj - si + 3? 01 * loc makeint; ds *■ t octj 
FNq makfint? 

LABEL FOUND? 
FORMAT 

FTLEFCA1* A6» Xl» 



03063000 T 0034 

03064000 T 0035 

03065000 T 0036 

03066000 T 0036 

03067000 T 0036 

03068000 T 0036 

03069000 T 0036 

start of segment ********** 



03070000 T 0000 



03071000 
03072000 
03073000 
03074000 
03075000 
03076000 
03077000 
03078000 
03079000 
03080000 
03081000 
03082000 
03083000 



0001 
0002 
0004 
0007 
0008 
0013 
0013 
0018 
0020 
0020 
0025 
0026 
0027 



92 IS 



32 LONG. NEXT SEG 
03084000 T 0036 



03085000 
03086000 
03087000 
03088000 
03089000 

03090000 
03091000 
03092000 
03093000 
03094000 
03095000 
03096000 
03097000 
03098000 



0036 
0037 
0037 
0038 
0038 

0038 
0039 
0039 
0040 
0041 
0043 
0044 
0044 
0044 



PRT(703) * FILEF 



"FILE IDENTIFIER* PRT IS », A4» ".")# 



START OF SEGMENT ********** 
03099000 T 0044 



92 



90 



93 



c 



c 



c 



^ 



c 

C 

c 
o 
c 
c 
c 
o 
o 
•o 
o 
o 

c 



o 



o 



o 



O 

o 



c 



begin 



END; 
BEGIN 



BL0KFCA6* X5t "COMMON BLOC«» PRT IS "» A4» 
"• LENGTH IS »t l5» » WORDS,"); 

COMMENT DUMP OUT ACCUMULATED FORMAT AND NAME ARRAYS? 

if fnnindex * o then 

begin fnnprt * prgdescbldrc 1 * fnnprtt 1 nx av i l * nxavil + 1)1 

writedatacfnnindex»nxavil»fnnhold); 
end; 
if savesubs > o then 

BEGIN Tl J- GET(T » = GLOBALSrARCH( ", SUBAR'*) + 2 ) i 
PUTCT,TU=Tl&SAVESUBStTOSlZE3); 

end; 
t1*prgdescbldr(1»23#0.nseg«-nxavil*nxavil + 1) ; % build tpar at 

FILL LSTTf*3 WiTh 21(0), 8(» ») ; % R+23 



WRlTEDATAc29,NXAViL»LSTT) ; 

PDPRTfcPD!NX-l) t [37l5]»fPD|NXM),Eft2l63], [6in*l ; % SAVE BIT 
Tl * PRGDESCBLDR(1/2?»0.NSEG * NXAVIL * NXAVIL + 1); 
WRITEDATA ( 1 38. NXAV IL# TEN ) ; % POWERS OF TEN TABLE 
IF LSTI > THEN 

WRlTEDATAfLSTl, NXAVjL * NXAVlL + f LSTPH 
LSTA * PRGDESCBLDRC1, L.STA, 0. NXAVIL)* 



IF TWODPRTX f THEN 



U 



O 



o 



u 
o 

O 

u 
O 

o 



END; 



BEGIN 



fill lstt[*3 with 
octooooooo4214iooio> 

0CT030100130H12025. 
OcT202l0lO4422l5055# 
0CT224540032O211025, 
OeTOl061774043l04l5. 
OCT1025042112350000; 

T * PRGDESCBLDRCO, TWOpPRTX* 0» NXaVIL * NXAVIL+1); 
WRITEDATAC6, NXaVIL. LSTT)? 

COMMfNT DECLARE GLOBAL FILES AND ARRAYS; 

fps * fPe * mkabscfPr); 
sfgMentstaRt; 

F2T0G «■ TRUE? 

gseg *■ nsfg; 
fpbi * o; 

EMITLCO); EMITLC2); eMjTO(SSf)J 

emitl(i); % set block counter to 1 
emitlu6); emito(std); 
emitl(o); emit0pdclitc23); emlto(del); 
emitl(Real(holtog)); emitpairc2i»std); 
i *■ globalnextlnfo; while i < 4093 do 



IF I 
BEGIN 



i * i+3; 
gftall(imnfa#infb> infc); 

NrA, CLASS e FILEID T H EN 
FPBI * FPBI + 1* 



XSfe COMMENTS ON LINe 02118000 *992' 



03 
03 

93 IS 

03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
START Of S 

94 IS 

03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
Of S 
03 
03 
03 
03 
03 

03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 



START 



95 IS 



100000 
101000 
27 LON 
102000 
103000 
104000 
105000 
106000 
106100 
106125 
106150 
106175 
106200 
106205 
EGMENT 
29 LON 
106210 
106215 
107000 
108000 
109000 
110000 
111000 
112000 
113000 
114000 
115000 
116000 
117000 
EGMFNT 
118000 
119000 
120000 
121000 
122000 
6 LON 
123000 
124000 
125000 
126000 
127000 
128000 
129000 
130000 
131000 
132000 
1 33000 
134000 
138000 
139000 
140000 
141000 
142000 
143000 
144000 
145000 
146000 



T 0044 

T 0044 

G, NEXT SEG 

T 0044 

T 0044 

T 0045 

T 0049 

T 0051 

T 0051 

T 0051 

T 0055 

T 0057 

T 0057 

T 0060 

********#* 

G. NEXT SEG 

T 0062 

T 0064 

T 0069 

T 0072 

T 0074 

T 0075 

T 0075 

T 0078 

T 0080 

T 0080 

T 0081 

T 0081 

T 0082 



c 



90 



94 
90 



c 
c 

Q 

c 
c 
c 

c 



********** 

T 0083 

T 0083 

T 0083 

T 0083 

T 0083 

Gt NEXT SEG 

T 0083 

T 0086 

T 0088 

T 0088 

T 0088 

T 0091 

T 0091 

T 0093 

T 0094 

T 0094 

T 0097 

T 0097 

T 0099 

T 0101 

T 0103 

T 0106 

T 0106 

T 0107 

P 0109 

T OHO 

T 0110 



95 



90 



r 

c 
c 
c 
c 
c 
c 
c 



."-\ 
w 



c 



L, 



J 
O 
O 

o 
o 
o 
c 
o 
o 
o 



o 

o 
o 

o 
o 
o 

G 



begtN 



END) 



PRI * INFA 
IF (XTA * 

IF XTA * M 
FlLES[XTA] 
IF XTA > T 



.ADDRJ 
INFB ),Cl8»6J < 10 THFN 

AKEINT(XTA) > BIRGFSTFIUfNB THEN FLAGC77) ELSE 

* PRI ; 

HEBIGGEST THEN ThEBIGGEST «■ XTAJ 



EMlTo(MKS) 
IF J * INF 
BEGIN FlLTYp * 
IONM «• " 
Tl * GITSZ 
FID * FILE 
MFID * FIL 
IF FILTYP> 
BEGIN 
SPDEU 
B*IF 
i E 

A*ENT 



B*ENT 



EMlTN 
END E 
BEGIN 

END? 
QQQDISkDEFAULTi 

ESTIMATE*E 

ELSE 
EMITLf J,C4 
EMITUFPBI 



p 
C 

INFC 
n 

(IDNM 
INFO[ 
EINFO 
10 AN 

%%% 
N » ~F I 
(B«-C( 
USE A 
%%% B 
IER(B 
%%% T 
%%% A 
IERCT 
K* *> /p y 

%%% 
%%% 
%%% 

UM(B) 

LSE 
EMIT 
J *■ 



ADInF 
• LI 
S " F I L 
)J 

2.J3? 
C1.J3 
D CT* 
SET U 
LEINF 
J + FIL 
))<0 
-ORIG 
xENTI 
'"ARE 
-# LO 
/A+.9 

= # 
QUjVA 
HE AB 

N T NT 

EQUlR 
I EMI 



* THEN % OPTION FILE 

NK; 

E**C6l!>At24J&XNFBE30tl8ll8]I 



J 

FlLElNFOt3*J].DKAREASZ)*o THEN 

p <disk file descriptions 
0C3»J].senspdeunf; 

ElNFOtO»J3)«[18H?3)/CIF A*J , C 30 1 123<0 THEN 

THEN 1 ELSE B ; 

INAL "BLOCKING" SIZE = # LOGRECS/PHYSRFC , 

FR(T/(20xB)+, 999999999)+, 5) I 

A" SIZE - # LOGRECS IN TOTAL FILE. 

fiRECS PER ROW. 

99999999) } 

ROWS IN FILE, 

LENT ALGOL FILE DESCRIPTION s CBI A3 , 

OVF LOrIC YIELDSJ SHORTEST ROW CONTAINING 

fgfR number of physical records and which 
fs 20 or fewer rows for the total area, t. 

TNUM(A) ) 



LCO)l EMITL(0)I 
FIlEInFoCO»j3J % 



THIS ONE HAS ALL THE GOODIES 



35503- 
STlMATE + (J,t'l2!63)x(IF A*J, [ 18 $ 1 2 3 = THEN J,E30tl23 
A) I 
!23); % LOCK 

)j % file param index 



END 
BEG! 



EMI 
EMI 
EMI 
EMI 
EMI 
EMI 

ELSE 

N 
ALF 
IFC 
I 



TDESCLITCPRP? 
TL(J,U2»63)J 
TLCJ.C3813)) X 
TNUM(J.[30U23) 
TNUM(J. [18112]) 
TNUMCJ.t 6J123) 



% PRT OF FILE 
% t BUFFERS 

RECORDING MODE 
} % RECORD SIZE 
', % BLOCK SIZE 
i % SAVE FACTOR 



*TRUEJ 
FILTYP*INFC,LINK = 2 OR F iLTYP*12)ANd I NFS , [ 1 8 : 6 3<9 THEN 
DNM * 0&«FlLE M r6?24{24] & iNFB[30j 185183 
ELSE 



BEGtN 



ALF 



END? 



+ FALSE* 
IF CTDNM 
TDNM 



" w «lNFB[6!l8l30]) s 
"READER "i 



"READR " THEN 



03 


147000 


T 





112 


03 


148000 


T 





113 


03 


149000 


T 





115 


03< 


50000 


T 


01 


115 


03 


151000 


T 


0] 


119 


03 


152000 


T 


0] 


123 


03 


53000 


T 


01 


125 


03 


54000 


T 





125 


03 


155000 


T 


01 


126 


03 


156000 


T 





127 


03 


157000 


T 


03 


129 


03 


158000 


T 


01 


132 


03 


159000 


T 


03 


134 


03 


160000 


T 





135 


03 


L61000 


T 


03 


137 


03 


162000 


T 


03 


111 


03! 


162005 


T 


03 


141 


03 


162007 


T 


03 


144 


03 


162014 


T 


03 


147 


03 


162020 


T 


0] 


152 


03' 


162030 


T 





152 


03< 


162040 


T 


0! 


158 


03' 


162050 


T 


01 


158 


03 


162060 


T 





158 


03 


162070 


T 


0] 


160 


03' 


162080 


T 


03 


160 


03' 


[62090 


T 


03 


160 


03: 


162100 


T 


0] 


160 


031 


162110 


T 


0] 


[60 


03 


162120 


T 


0] 


160 


03< 


162129 


T 


03 


162 


03' 


63000 


T 


0] 


L62 


031 


64000 


T 


0] 


[68 


031 


164010 


T 


01 


170 


033 


164045 


C 


01 


[70 


033 


164050 


T 


01 


.71 


033 


L64100 


T 


01 


.74 


031 


165000 


T 


01 


176 


033 


[66000 


T 


01 


178 


03! 


167000 


T 


01 


178 


03] 


168000 


T 


0] 


l78 


033 


169000 


T 


0] 


179 


033 


70000 


T 


01 


.80 


03] 


171000 


T 


01 


82 


03] 


172000 


T 


01 


[83 


031 


73000 


T 


01 


[84 


03' 


174000 


T 


03 


185 


OS- 


175000 


T 


0] 


185 


OS] 


76000 


T 


01 


.86 


03] 


177000 


T 


01 


187 


031 


178000 


T 


0] 


[91 


031 


79000 


T 


01 


94 


03] 


80000 


T 


0] 


94 


03] 


81000 


T 


0] 


96 


031 


82000 


T 


01 


96 


031 


83000 


T 


01 


99 


031 


184000 


T 


0200 



c 
c 
c 
c 
c 
c 
c 
c 



c 
c 

c 



c 

c 
c 
o 
c 

c 



IF IDN 
JF IDN 

BEGIN 

EMITL 

J* 

FJD*I 

G 

end; 



M="READER " OR IDNM="FlLE5 
M="FILE6 " THEN BEGIN IDNM 



" THEN IDNM*"CARD •» ELSE 
•»PRINTER"?FILTYP*18»END ELSE 



o 



f20)J EMITLC600); FILTYPM2? *20 x 600 
0R2t42»«2l6]&l0[30l36M2H300[l8l36ll2]> 

nNMj MFID*"F0RTEMP"} Tl*-GITSZ( IDNM)J 
TO QQ9DISKDEFAULT; 



Tl * GITSZ(IDNM)? 

FTD * idnm; 

MFID * 0; 

DCINPUT AND ALF THEN 

EMlTLf20); 

EMITLCIOO); 
FMITL(2); 

FMITL(FPBT)J 

EMlTDESCL|T(PRl)J 

FMTTLf2)l 



REC DISK 



S503- 

£503- 

£503- 
£503- 
£503- 
£503- 
£503- 
£503- 



IF 



U 



U 



EMlTLf DI 
EMlTLflO); 
EMITLC30)J 
EMlTLfD? 

END else 
bfgin 

EMUUfO)! 
EMITLC0)J 
FMlTLfO); 
EMITL(FPBT)! 



bfgin 

% disk rows 
disk record per 

REWfND AND LOCK 
FILf nuMbe" 
PRT Of FILE 

number of bufffrs 
Recording mode 
record size 
block size 
save factor 



ROW 



£ DISK ROWS 

% DISK RECORDS PER 

* REWIND & RELEASE 

% FILf numbfR 



ROW 



O 

o 
o 
o 
o 
o 
o 
o 
o 
o 



EMlTDESCLiTCPRp; % PRT Of FILE 

EMITLC2)) % 2 BUFFERS 

EMjTL(ReAL(ALF))J 

EMITLMF FILTYP = THFN 10 ELSE 17); 

EMjTLfO); £ 15 WORD BUFFERS 

EMITL(O); % SAVf FACTOR (SCRATCH BY DEFAULT) 

end; 

END? 

FMTTLC11); % fNPUT OR OUTPUT 
EMlTLfB); % SWITCH CODE FOR BLOCK 
EMlT0PDCLlTf5)J % CALL BLOCK 
FpE4.BUiLDFPBcFpE>FPB!»FILTYP»MFlD»FID#Tt,lDNM.SPDEUN>; 

IF PRToG THEN WR I TALI STC F I L.EF # 3» I DnM . 1 6 * 6 1 * I DNM# B2D( PR I ) . 
0»0»0»0»0) ; 



End 

BEGIN 



ELSE 

IF INFA,CLASS a BLOCKID THEN 



IF PRTOG THEN WR I TALI ST< BLOKF* 3 1 1 NFB»B2D( I NFA , ADDR ) * 

IMFC,SIZE#0»0»0»0.0) ; 

IF INFA < THEN ARRAYDEC(I); 
END) 

IF (Tl #• INFA .CLASS) > fUNID 
AND Tl < SUBRID THEN 
BEGTN £ CHECK FOR INTRINSIC 

PR I «• o; 

if infa .segno = o t h en 

BEGtN 



0318A010 
03184020 

03184030 

03184040 

03184050 

03184054 

03184060 C 

03184070 C 

03185000 

03186000 

03187000 

03187100 

03187200 

03187300 

03187400 

03187450 

03187500 

03187550 

03187600 

03187650 

03187700 

03187750 

03187800 

03187900 

03188000 

03189000 

03190000 

03191000 

03192000 

03193000 

03194000 

03195000 

03196000 

03197000 

03198000 

03198500 

03199000 

03200000 

03201000 

03202000 

03203000 

03904000 

03204010 

03205000 

03206000 

03207000 

03208000 

03209000 

03210000 

03211000 

03212000 

03213000 

03214000 

03215000 

03216000 

03217000 

03218000 



0200 
0203 

0211 
0215 
0217 
0221 
0224 
0226 
0226 
0227 
0228 
0229 
0231 
0231 
0232 
0233 
0234 
0234 
0235 
0236 
0237 
0237 
0238 
0238 
0239 
0239 
0240 
0241 
0242 
0242 
0242 
0243 
0244 
0247 
0247 
0248 
0248 
0248 
0249 
0250 
0250 
0254 
0258 
0260 
0260 
0260 
0261 
0262 
0266 
0268 
0270 
0270 
0271 
0273 
0273 
0274 
0275 



c 

c 
c 
c 
c 
c 
c 
c 



c 



*w 



c 
c 

c 
c 
c 

c 
c 
c 

/— -s 

c 

c 



o 



n 



A«-0) B«-NUMJNTM1 J 03219000 T 0276 

^ WHILE A + l < B DO 03220000 T 0277 ^ 

BFGlN 03221000 T 0279 

PRl «■ REAL{B00LFAN(A + B) AND B00LEAN(1022))J 03222000 T 0279 

'•J IF IDNM * jNTfPRn = iNpB THEN GO TO FOUND* 03223000 T 0281 L. 

IF INFB < IDNM THEN B * PRl. [36111] ELSE A * PRl, [361111* 03224000 T 0283 

END? 03??5000 T 0287 

^ IF IDNM * INT[pRU(A+B)x2"PRI] = INFB THEN GO TO FOUND* 03226000 T 0288 C 

XTA *• INFB; FLAGOO); 03227000 T 0292 

GO TO LA; 03228000 T 0293 

^ FOUNDS 03229000 T 0294 

IF CT1»INTCPRI + M.INTPARMS)#0 03230000 T 0295 

AND INFC < 03231000 T 0297 

O THEN IF Tj * INFC.NEXTRA ThEN 03232000 T 0297 C 

BEGIN XTA «• INFB I FLAGC28); END? 03233000 T 0300 

IF «F!O*INTLOCCMF|D*tNTCPRT+13tINTNUM3)*0 THEN 03234000 T 0302 _ 

U BEGTN 03235000 T 0305 <~ 

PDPRT[PDIR.PDIC3 * 03236000 T 0306 

O&HSTYPC] 03237000 T 0308 

O SMFID[DKAC3 03238000 T 0309 C 

&CFID «• INTUOCEMFID] * NXAVIL * NXAVlU + 1)[SgN0C] 03239000 T 0310 

&HSE6SZC]! 03240000 T 0314 

O PDINX * PniNX + 1? 03241000 T 0315 ^ 

END} 03242000 T 0316 

Tl * PRGDESCBLDRCliINFA .ADDR»0,FID)> 03243000 T 0316 

O !F PRTOG THEN WR I TAL T ST( SEfiUS. 3, I DNM,F iDt B2DC Tt > , 0, 0, 0, 0, 0) I 03244000 T 0319 C 

IF lNT[PRf+n < THEN 03245000 T 0324 

BEGtN 03246000 T 0326 



■■' 



T1 * PRGOESCBLDR<lilNTrPRl + l].INTPRTiOtFlD)l 03247000 T 0326 ^ 

INTIPRI + IJ * ABSunTtPRI + 1 ] ) J 03248000 T 0329 



C 



END? 03249000 T 0332 

^ END 03250000 T 0332 

ELSE IF PRTOG THEN Wr I TAL I ST( SEGUS, 3» I NFBi 03251000 T 0332 

!NFA»SEGN0>B2D(1NFA.aDDR)»0»0»0>0»0) J 03252000 T 0335 

'O END) 03253000 T 0339 C 

LA! 03254000 T 0339 

END* 03255000 T 0340 _ 

^ COMMENT MUST FOLLOW THE FOR STATEMENT? 03256000 T 0340 C 

IF FILEARRAYPRT * THEN 03257000 T 0340 

BEGIN % BUILDING OBJECT TIME FILE SEARCH ARRAY 03258000 T 0341 

O J * PRGDESCBLDR(l»FILEARRAYPRTfO.NXAVlL * NXAVIL + 1)J 03259000 T 0341 C 

WRlTFDATAfTHEBIGGEST + t » NXAV IL »F I LES ) ; 03260000 T 0344 

FMt 03261000 T 0347 

o xta «- blanks) 03262000 t 0347 c 

if nxavil > 1023 then flag(45)j 03263000 t 0347 

if prts > 1023 Then flagc46); 03264000 t 0349 

u tf strtseg = then fLagc65)* 03265000 t 0351 C 

PRl * OJ 03266000 T 0353 

„ WHILE (IDNM * iNTrPRTJ) * DO 03267000 T 0354 _ 

U tF lNTtPRi+1] * THFN PR] * PR I + 2 FLSE 03268000 T 0357 C 

BEGtN 03269000 T 0360 

IF fFID*INTLOC[MFlD*lNT[PRT+l],INTNUM])=0 THEN 03270000 T 0360 

^ BEGIN 03271000 T 0364 ^ 

PDPRT[pDlR#PDIC] *■ 03272000 T 0364 

O&lCSTYpC] 03273000 T 0366 _ 

U 8MFIDCDKAC3 03274000 T 0368 L, 

&CFID «- INTUOCCMFID] * nXAVIL «• NXAVIL. + 1HSGN0C] 03275000 T 0369 






c 



c 



O 

o 
o 



RltSEGSZC]! 
PDINX - PDINX + 



1 



END; 



END? 



Ti * PRGDESCBLDR(1»INT[PRI 
PRI * PRI+2J 



+ n,INTPRT»0»FID)} 



FOR I * 1 STEP t UNTfl BDX DO 

BEGIN EMITO(MKS); EM iTOPDCL I T C BDPRT CI 3 > 

FMjTOCMKS); 

EMlT0PDCLlTCSTRTSEG.rl8U5])| 

T *■ PRGDESCBLDRCl,0,0»NSEG)i 

$FGMeNT(CADR+4) DlV 4»NSEG>FALSE»ED0C)J 

IF ERRORCT / THFN rO TO fNDWRAPUP; 

FTLL SEGOr*] WjTh 

0CT0 2 0005» % BLOCK 



end; 



0CT25?00i4» % 
0CT230015* % 
0CT240016* % 



W 



O 



BEGIN 



FOR 



comment intrinsic 
i * o step 1 until 



write 

READ 

file control, 
functions; 

3 Do 



START 



03276000 T 0372 

03277000 T 0374 

03278000 T 0375 

03279000 T 0375 

03280000 T 0378 

03281000 T 0379 

03282000 T 0380 

03283000 T 0381 

03284000 T 0385 

03285000 T 0385 

03288000 T 0387 

03289000 T 0389 

03290000 T 0392 

03291000 T 0393 

03292000 T 0394 
OF SEGMENT 

03293000 T 

03294000 T 

03295000 T 



********** 



96 IS 



Ti 



+ 1); 



O 
O 

o 
o 
o 
o 

o 
o 
c 



end; 



begin 



END 
BEGIN 



PRGDESCBLDR(i#SEGOm,C36»l2 3>0, 

NSEG «■ NXaVIL «■ NXAVIL 
PDPRTtPDIR»PDIC3 * 
O&USTYPC] 
&£SEG0tIl,[30l6])tDKAC1 
&NXAVILESGNOCJ 
&1CSEGSZC]; 
PDINX * PDINX + 1» 

COMMfNT GENERATF PRT AND SEGMENT DICTIONARY; 
PRTrO,41] «• PDPRTrO»0] & 63C10M2I63J % USED FOR FAULT OPTN 
FOR I * 1 STEP 1 UNTIL PDINX-1 DO 
IF (TUPdPRTCI.PDR»iIPdC3>:SE6SZF * THEN 

% PRT ENTRY 
PRTADR *Ti .PRTAF; 

segmnt *ti .sgnof; 

LNK «• SEGDICT[SEGmnT;C36»5]» SEGMNT . [ 41 » 7] 3 , PRTAF ; 
MDESC(Tl,RELADF&SEGMNTtFFC] 
&<REA|.,(LNKs0))[ST0pC] 

&CIF LNK a THEN SEGMNT ELSE LNKHLINKC3 
R(Tl.DTYpF)CMODEC] 
S5C 1 1 45t 33 • 

PRTCPRTADR»C36:5'3»PRTADR,t4lJ73] ); 
SFGDICnSEGMNT»t36l5]»SEGMNT,[41l7]] f PRTLINKF * PRTADR; 

ELSE 

% SEGMENT DICTIONARY ENTRY 
SEGMNT «■ TI, SGNOF? 

SEGDICTtSEGMNT, [3615] i SEGMNT, [41 173 I* 
SEGDICT[SEGMNT,[36;5jtSEGMNT,[41l7]3 

&THSGLCC3 

&TUDKADRC3 

& TH4S12U3 

&Tl[6»6»i3 



4 LONG* 



03296000 
03297000 
03298000 
03299000 
03300000 
03301000 
03302000 
03303000 
03304000 
03305000 
03306000 
03307000 
03308000 
03308100 
03309000 
03310000 
03311000 
03312000 
03313000 
03311000 
03315000 
03316000 
03317000 
03318000 
03319000 
03320000 
03321000 
03322000 
03323000 
03324000 
03325000 
03326000 
03327000 
03328000 
03329000 
03329100 
03329200 



0395 
0395 
0395 
NEXT SEG 
0395 
0395 
0396 
0396 
0397 
0400 
0402 
0403 
0405 
0406 
0408 
0409 
0411 
0411 
0415 
0419 
0423 
0424 
0425 
0426 
0429 
0431 
0432 
0435 
0437 
0438 
0440 
0445 
0445 
0445 
0445 
0446 
0449 
0451 
0452 
0453 
0454 



96 



90 



c 



u 






o 
o 
c 
o 



u 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



o 
o 
o 

f") 



C 



END? 



8T1C1UJ23; 
TSEGSZ * TSEGSZ + TI.SfGSZf; 



BEGlN 



COMMpNT WRITf OUT 
FPBSZ * Cf FPE. [33* 15j - 
I «- (FPBSZ + 29) 01 V 30; 

if daloc div chunk < tj 
then daloc «. chunk x tij 

seg0[4] * dauoc? 

seg0c53 * fpbszj 

seg0[5],fpbversf«-fpbversi0n» 

for i * step 30 while i < fpbsz 



FILf PARAMETER BLOcK; 
FPS) x 6 + FPE.f30?3] 



+ 9) DIV 8 J 



* fDALOC +1) DIV CHUNK 



DO 



O 



END* 



MOVE(FPBCl]»CODECO)ilF (FPbSZM) > 30 

THEN 30 ELSE (FPBSZ-D)I 
WRlTEfCODFtDALOC])J 
DALOC *■ DALOC + 1) 

5FG0t2] * MOVEANDBL0cKfPRT,PRTS+l)J % WRITES OUT PRT 

% SAVES ADDRESS OF PRT 
SfgO[3] * PRTS + i; % SIZE Of PRT 

sfgo[0] * moveandblqckf segd i ct» nxavi l +• i)j % write seg dtct 
segOcij * nxavjl + 1; % size of segment dictionary 
seg0[6] * -gseg* * first segment to execute 

FPBI) %. NUMBER OF FILES 
ESTIMATE * IF % CORE ESTIMATE 



O 



SIZES + DEFAULT BUFF SIZES, 



U 



(J 
D 

o 
o 
o 

c 



PRTC704) 



SEG0I7],C33»15] 
SE60[71,tl8*l53 
( I «■ 

ESTIMATE+60+ *** OPTION FILE BUFF 
PRTS + 512 % prT AND STACK SIZE 
+TSEGSZ % TOTAL SIZE OF CODE 
+ 1022 2 FOR INTRINSICS 
♦ARY5Z % TOTAL ARRAY SIZE 

♦ (MAXFILES x 28) % SIZE OF ALL FIBS 
+FPBSZ * SIZE OF file parameter block 

* (IF ESTIMATE * THEN ELSE (ESTIMATE + 1000)) 
+ (NXAVIL * 1) % SIZE OF SEGMENT DICTIONARY 

) > 32768 THEN 510 ELSE (I DIV 64); 
COMMENT IF SEGSW THEN UPDATE LINDICT* SEG0[Q] & WRITE IT I 
SEG0[7],[2SU * U X USED FOR FORTRAN FAULT DEC; 
IF SEGSW THEN 
BEGIN 

FOR I * NXAVIL + 1 STEP -1 UNTIL 1 DO 
IF LINED!CT[I.IR, i.tC] - THEN % INDICATE NO LtNE SEGMENT 
LINEDICT[I.IR»I,IC] <■ -1J % FOR THIS SEGMENT 
SFGOfO] * SEGO[0] & f MOVEANDBLOCK( LI NEDI CT» NXAV I L+l ) ) ( TOBASE 3 ? 

fNd> 

WRTTEfC00E[Pl»30fSEG0t*])l 

IF ERRORCT b AND SaVeTIME * THEN LOCK(CODE)* 

endwrapupi 

loCk(Tape); xrw/l tape file or lock disk 3502- 

IF NTApTOG THEN L0CK(NEWTApE,*); XrW/i, TApE OR CRUNCH DISK%502- 
END WRAPUpj 

procedure initialization; 
initialization 

begin Comment 



90 IS 



03330000 T 
03331000 T 

03332000 T 
03333000 T 
03334000 T 
03335000 T 
03336000 T 
03337000 T 
03338000 T 
03339000 T 
03339100 T 
03340000 T 
03341000 T 
03342000 T 
03343000 T 
03344000 T 
03345000 T 
03346000 T 
03347000 T 
03348000 T 
03349000 T 
03350000 T 
03351000 T 
03352000 T 
03353000 T 
03354000 T 
03355000 T 
03356000 T 
03356100 T 
03357000 T 
03358000 T 
03358050 T 
03359000 T 
03360000 T 
03361000 T 
03361100 T 
03362000 T 
03363000 T 
03363100 T 
03363150 T 
03363200 T 
03363300 T 
03363400 T 
03363500 T 
03363600 T 
03363700 T 
03363800 T 
03364000 T 
03365000 T 
03366000 T 
03366100 P 
03366200 C 
03367000 T 
564 LONGi 
03368000 T 



initialization; 



0455 
0456 
0458 
0459 
0459 
0463 
0465 
0466 
0469 
0470 
0472 
0474 
0478 
0478 
0478 
0483 
0485 
0490 
0491 
0492 
0495 
0495 
0497 
0500 
0502 
0503 
0505 
0506 
0506 
0507 
0508 
0508 
0509 
0509 
0510 
0511 
0514 
0515 
0519 
0519 
0522 
0523 
0523 
0527 
0530 
0536 
0540 
0540 
0545 
0549 
0549 
0550 
0553 
NEXT SEG 
0506 



03369000 T 0506 



c 
c 
c 



c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

G 

o 

c 



u 



<J 



u 



\~> 



'U 



\^ 



^ 



ALPHA STREAM PROCEDURE MKABSCP)! 



N>» VALUE N, 



w 



v_/ 



O' 



O 



<w' 



O 



PRT(705) s MKABS 

BEGIN St * Pi MKABS * S! END* 

STREAM PROCEDURE BLANKOUHcRD, 
PRTC706) ;? BLANKOUT 

BEGIN DT *• CRDI NCDS * LIT » «) END! 

BLANKOUTfCRDtlO], 40)1 

BLANKOUTCLASTSEQ. 8)! 

BLANK0UTCLASTERR*8) 1 

iNfTIALNCR *• MKABSfCRD[03)&6[30l45l3J| 

CHRO * MKABS{ACCUMtO])& 2 r 30l45l3]f 

ACRO * r.HR0 + l» 

ACRl * fCHRl*MKABS f EXACCUMrO]J 8 2t30:45$31) + 1? 

ACCUMSToP*MKABS{ACCUMf ll])l EXACCUMSTOP*MKABS(EXACCUMr 1 1 ] ) 

BUFL * MKABS(BUFF) & 2t30«45«3]? 

NEXTCARD * 1* 

GLOBALNEXTINFO * 40931 

PDINX * 1? 

LASTNEXT*1000 1 

PRTS * 411 % CURRENTLY . , , . . LAST USED PRT 

READ(CR, 10» CBf*3); 

LIST0G*TRUEI SI NGUTOG*TRUE 1 CHECKTOG * FALSE? ^DEFAULT 

FIRSTCALL * TRUE? 

IF B00LfANCERR0RCT,[46«i3) THEN LISTOG 

IF B00LFANCERR0RCT,C47Jn) THfN DCINPUT 

ERRORCT * 0? 

IF DCINPUT THEN SEfiSW *• TRUE 1 

IF DCINPUT THEN ReM0TET0G*TRUf 1 

LlMlT-tr DCINPUT THEN 20 ELSE 100 

if segsw then segswfixed «- true ; 



O 

j 

O 
O 



* FALSE? 

* truei 



J 



EXTRAlNrOrO.O] «, & EXPCLASSr TOCLASS ] ; 
NEXTEXTRA * 1? 
LASTMODf * 1 i 

daloc * i; 

TYPE * -11 

MAPfOJ *■ MAPr23 * MAP[4] «■ MAP[7] * -101 

MAP[s3 * tl MAPr61 * 21 
FILL XRf*] WITH 0.0» 0. 0. 0. 0* 0. 



"INTEGE».»R 
"L0GlCA"»"L 



R"»" «»»♦ 
L"»"D0UBLE»»» 



»t , H 



REAL 



"*"C0MPLE"»"X 



•»••, 

»■•, 



If . II M . - . 



i • - m m m » . H 



h . it . 



i*««Mtl.nn 



••t 

x*. 

"* 

-"J 



FILL TYpESC*J WITH " 



W * II 



INTGER". 



» . ti 



'REAL 



"LOGcAL". "DOUBLE"* "C0MPLX"> 

FILL KLaSS(*3 WITH 

"NULL ". "ARRAY "» "VARBLe". "STFUN "» 

"NAMLST"» "FORMAT"! "ERROR "» "FUNCTN". 

"INTRSC"» "EXTRNL"i "SUBRTN". "COMBLK". 
"FILf "1 

FILL RESERVEDWORDSLPC*] WITH 



03370000 T 0506 
START OF SEGMENT ********** 

03371000 T 0000 

03372000 T 0001 

03373000 T 0001 

03374000 T 0004 

03374100 T 0006 

03374200 T 0007 

03375000 T 0008 

03376000 T 0011 

03377000 T 0014 

03378000 T 0016 

03378100 T 0020 

03379000 T 0024 

03380000 T 0026 

03381000 T 0027 

03381100 T 0028 

03381200 T 0029 

03382000 T 0029 

03383000 T 0030 

3!501- 03384000 P 0034 

03385000 T 0040 

03385100 T 0041 

03385200 T 0044 

03385300 T 0047 

03385350 T 0048 

03385355 T 0051 

03385360 T 0054 

03385400 T 0057 

03386000 T 0060 

03387000 T 0063 

03387100 T 0064 

03388000 T 0064 

03389000 T 0065 

03390000 T 0066 

03391000 T 0071 

03391100 T 0073 

START OF SEGMENT 
03391200 
03391300 
03391400 
03391450 
98 IS 31 LONG. 
03392000 T 

START OF SEGMENT 
03393000 



97 



c 



********** 



98 



0075 

0075 

0075 

0075 
NEXT SEG 

0075 
********** 
T 0077 



NEXT SEG 
T 0077 
T 0077 

********** 



99 IS 7 LONG. 
03394000 
03395000 
START OF SEGMENT 

03396000 T 0078 
03397000 T 0078 
03398000 T 0078 
100 IS 13 LONG. NEXT SEG 
03399000 T 0078 



97 



99 



97 



100 



9 7 



C 

c 

c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 



< ) 



"CALL »»"ENTR "."FORM «,"gOTO "»"IF 



"» M READ 



'^ 



"Real "."writ "."data ","cLOs "."lock "."PuRg "»"chai "» 

"pr in "."punc ". 

0#"y "."at ",q. o.o.o, «e ",0»"e "»0."e 

"N «»"T "»"H "I 



START Of 



O 



u 



^ 



u 



u 



o 



w 



'vj 



LJ 



o 

O 



O 



o 



\j 



FILL RESERVEDWORDSr*! WITH 

"ASSf "."BACK "."BLOC "."CALL 



"»"C0MM "."C0MP "."CONT •», 



101 IS 



START OF 



"DIME 
"FUNC 
"PROG 
"SUBR 
"LOCK 



"»"D0UB 
"."GOTO 
»,"PUNC 
"."WRIT 
"."PURG 



"."END 

%«INTE 
"."READ 



"VARY ",«AUXM 



"."RELE 



"DATA 

"EXTf 

"PR In 

"STOP 

"CLOS 

0,0,0, 

"FIXf " 

"IMPL " 

"GN 

0»"N5I0N 

."TION 

"RAM 

t»p 

"EM 
. " I C I T 
I 



FILL RESLENGTHLPC*] WITH 

4»5»A>4»?»4»4»5,4»5,4»5»5»5»5i 



FILL LPGL0BALt*3 WjTH 

4. i3» 36. 17. 35. 25. 

26. si, 8. 32» 33. 3ft. 37, 22. 24? 



"»"ENDF 
","L0GI 
"."REAL 



"."ENTR 
"."NAME 
»."RETU 



"»"EQUI »» 
"»"PAUS », 
"."REWI »'. 



"."SPACE "»"KDATA 
"»"LFPREClS",0,»ILE 
"»0."GER "»"CAL 
","H "»0,0."RN 
"."E 



"."ASE 



.0»"E 



",0»"0N 
"»"Y 
"."LIST 
"»"ND 
",0»0.0»"D 



'."LEX "."INUE 
"."VALENCE "»"RNAL 

" . " E " # " T 
"»0»"0UTINE ". 



102 IS 



3400000 
SEGMENT 
3401000 
3401100 
3401200 
3401300 
30 LONG. 



T 

** 

T 
T 
T 

T 



FILL RESLENGTHC*] 
0. 9, 9, 4, 6. 



WITH 



START OF 
103 IS 



START OF 
( 

104 IS 



3402000 T 

3403000 T 

SEGMENT ** 

3404000 T 

3405000 T 

3406000 T 

3407000 T 

3407100 T 

3407101 T 

3407102 T 

3407103 T 
3407200 T 
3407300 T 
3407400 T 
3407500 T 

3407600 T 

3407601 T 

3407602 T 
3407990 T 

84 LONG* 

3408000 T 

3409000 T 

SEGMENT ** 
15 LONG. 

03410000 T 

03411000 T 

SEGMENT ** 

3411100 T 
15 LONG. 



7. 
3* 
8, 
5, 
4, 
5. 
.8 

; 



8, 4. 9, 15. 

7, 5. 11. 8, 

4, 7, 7. 8. 

5, 7, 5, 4. 

6, 6, 4. 10. 5. 

4, 5. 0, 0. 0. 5. 7. 



FILL WOPC*] WITH 
"LITC"." "# 



START OF 



6, 7 



l0."DFL 
19.»LNG 
38»"BfC 
65»"Ml2 

72»"M«S 



"0PDC", M DESC". 
"» 11»"N0P "» 
". 21, "GEO "» 
"» 39»"RTN "» 
"» 67*"LND "* 



105 IS 



START OF 



12."XRT 

22. "BBC 
40,»C0C 
68»"$TD 



l6»"ADD ". 
?4,»INX »» 
48, "SUB •*» 
69*"NEQ "» 



17»"AD2 
35, "LOR 
49»"SB2 
70»"SSn 



"» 
"» 
«♦. 
", 



l8."PRL 
37,"GTR 
64»"MUL 
71»"XIT 






3412000 
3413000 
SEGMENT 
3414000 
3415000 
3416000 
3417000 
3418000 
3418100 
3418101 
3418990 

42 LONG. 
3419000 T 
3420000 
SEGMENT 
3421000 
3422000 
3423000 
3424000 
3425000 
3426000 



T 

T 

** 

T 

T 

T 

T 

T 

T 

T 

T 



T 
** 

T 

T 
T 
T 
T 
T 



0079 

******** 

0080 
0080 
0080 
0080 
NEXT SEG 
0080 

0081 

******** 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 

0082 
NEXT SEG 

0082 

0082 
******** 

NEXT SEG 
0084 

0084 

******** 

0085 

NEXT SEG 
0085 
0086 

******** 

0087 

0087 

0087 

0087 

0087 

0087 

0087 

0087 
NEXT SEG 

0087 

0088 
******** 

0089 
0089 
0089 
0089 
0089 
0089 



101 



o 



97 



102 



97 



103 
97 



104 
97 

105 



97 



106 



o 



n 



O 



C 



o 



C 

c 



c 



c 
c 
c 
c 
c 

c 



W 



u 



•u 



o 



o 



o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 



128»"DtV 
134»"ChS 
278»»GbC 
5l5» M MnS 
550# M BrW 
806»"GFW 



•»1?9»"DV2 
»167»"RTS 
.280, "SSF 
'.532#"ISD 
»f581»"EQL 
•»896» W RDV 



"»130» 
"»168, 
M #294, 
"»533» 
"»582» 
"#965f 



"COM 
"CDC 
"GFC 
"LEO 
"SSP 
"CTF 



"»13l»"LQV 
"»197."FTC 
"»322#"ZP1 
"*534»"BBW 
"»584."ECM 



"ti32#"SND 
"»260."LQD 
"»384*"IDV 
"*548*"lSN 
"»709»"CTC 



"»133»"XCH 
"»261."DUp 

",453»"FTF 
"»549,"LSS 
",790,"GBW 



1 023 » 1023. 1 023 * 1 023 » 1 0?3 » 1023*1 023 »t 023* 1023»1 023 »1 023 » 1023* 

FILL T!pEC*3 WITH 1 0(-l) »M 9»«2l t 0CT300000000.-21 **2.*3#-4» 

8 (OCT 300000000)* OCT 100000000.-5 »M3» -4. -6. -7 ."19.-11* 
5(OcT100000000)**8»3(OCT300000000)»-9.-10»-12.-13.»l4. 
-l5." , lOO»'l6»8COCT300000000)»*l7i w 6f-l8.'-l9f'20f l '21 I 



FILL PERlODWORDffJ WITH 
"FALSE ". "TRUE 



»LT 



"LE 



•tOR 



"EQ 



", "AND 



", "NOT 
"» "GE 



ACCUMtO] * EXACCUMfOl 
INCLUDE Ib "NCLUDE" & 
INSERTDFPTH Is -1? 
FILL TENt*3 WITH % POWER 
OCT i 141000000000000. 

0CTU11750000000000, 
0CT1063641100000000, 
0CT1037346545000000, 
0CT0011643245121000. 
0CT0043432772446150, 
0CT00767405553J6473. 
0CT0131543271153342. 
0CT0163236041571663, 
OCT0216354561711772, 
0CT0251447626234640. 
OCT0303051561442215. 
0CT03360H371636744, 
0CT0371360241772234. 
0CTn42267527430470l» 
0CTo4554656677404l5» 
OCT0511274514320241. 
0CT054253035U66673, 
OCT0575160607420123. 
0CTO631214417455344. 
0cT0662372362344605» 
0CTO7H671151416631, 
0CTO751137556607071. 
OcTOOOOOOOOOOOOOOOO, 
OcTOOOOOOOOOOOOOOOO, 

Oct oooooooooooooooo. 

OcTOOOOOOOOOOOOOOOO. 
OcTOOOOOOOOOOOOOOOO. 
OcTOOOOOOOOOOOOOOOO. 
OCTOOO 1000000000000. 
OCT0007365000000000, 
OcTOOO 16664 10000000, 
OCT0000400363500000, 



"I M [6J4?J63; 



S OF TEN TO PRT 22 
0CTH31200000000000. 



0CT1102342000000000 
OcTl054611320000000 
OrTl011l24027620000 
0CT0022214116345200 
0cT005434l57li57602 
0CT0111053071060221 
0rT0l42074l47406233 
0rT0l74i05452l30240 
0rT023l00477l627437 
OrT026l76l573704010 
0cT03l3664ll575266O 
0CT0347413670206535 
0CT0401654312370703 
0CT0433454553366061 
OCT0467003245730520 
0rT052l553637404312 
0rT0553256443424452 
0RT0606414751324147 
0cT064H57523370635 
0f.TO67307lO57035747 
0CT0726047403722377 
0cT076l3675123507l0 
OcTOOOOOOOOOOOOOOOO 
OcTOOOOOOOOOOOOOOOO 
OcTOOOOOOOOOOOOOOOO 
OcTOOOOOOOOOOOOOOOO 
OcTOOOOOOOOOOOOOOOO 
OcTOOOOOOOOOOOOOOOO 
OcT0OOl72000OOOO0OO 
0cT0005262200000000 
OcT0000244ll2000000 
OcT 0000 4500 46042000 



» . W 



* "NE 



"J 



OCT1121440000000 

OCT1073032400000 
0CT104575360400O 
OCT0001351035564 
0CT0032657142036 
0CT0065432127413 
0CT0121265707274 
0CT01525132O13O7 
0CTO205126764556 
0CT024120617O175 
0CT0272356132665 
0CT032464H41345 
0CT0361131664625 
0CT0412227375067 
0CT0444367706263 
0CT05010604U731 
OCT0532106607305 
0CT0564132154331 
0CT0621012014361 
0CT0651773450267 
0CT0703707272645 
0CT0737461304707 
0CT0771665435043 
OCTOOOOOOOOOOOOO 
OCTOOOOOOOOOOOOO 
OCTOOOOOOOOOOOOO 
OCTOOOOOOOOOOOOO 
OCTOOOOOOOOOOOOO 
0CT0004000OOO00O 
0CT00043040000OO 
0CT000453664O000 
0CTOO003151344OO 
0CT0006562057452 



106 
TART 

107 

START 
108 



000, 

START 
000, 
000, 
000, 
440, 
542, 
265, 
702, 
310, 
346, 
012, 
435. 
026, 
064, 
475, 
664. 
374, 
565, 
120, 
004, 
341, 
077, 
072, 
000, 
000, 
000, 
000, 
000, 
000, 
000, 
000, 
000, 
400, 



03427000 T 

03428000 T 

03429000 T 

03430000 T 

03431000 T 

03432000 T 

03433000 T 

IS 132 LONG. 

03433100 T 

OF SEGMENT ** 

03433110 T 

03433120 T 

03433130 T 

IS 64 LONG. 

03434000 T 

03435000 T 

OF SEGMENT ** 

03436000 T 

IS 11 LONG. 

03437000 T 

03437100 T 

03437110 T 

03438000 T 

03439000 T 

of segment ** 

03440000 T 
03441000 T 
03442000 T 
03443000 T 
03444000 T 
03445000 T 
03446000 T 
03447000 T 
03448000 T 
03449000 T 
03450000 T 
03451000 T 
03452000 T 
03453000 T 
03454000 T 
03455000 T 
03456000 T 
03457000 T 
03458000 T 
03459000 T 
03460000 T 
03461000 T 
03462000 T 
03463000 T 
03464000 T 
03465000 T 
03466000 T 
03467000 T 
03468000 T 
03469000 T 
03470000 T 
03471000 T 



0089 
0089 
0089 
0089 
0089 
0089 
0089 

NEXT SEG 97 
0089 

******** 107 

0091 
0091 
009J 

NEXT SEG 97 

0091 

0091 
******** 106 

0092 
NEXT SEG 97 

0092 

0095 

0096 

0097 

0098 
******** 109 

0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 



c 



c 

c 
c 
c 
c 



c 
c 
o 
o 
o 
o 
o 
o 
o 
o 



V J 



o 



,-—1 



U 



u 



u 



O 

O 

o 

o 
c 
o 
o 

o 
o 
o 



OCT000431647336 
0CT000446343012 

0CT000407053315 
0CT000224l6546i 

OCT000201405533 
OCT000344747057 
0CTOOO620712726 
0CT000767000247 
0CTO00116330506 
OCT000232U2707 
0CT000715042212 
0CT000414412735 
0CT000766435126 
FILL 1NL!NftNTC*3 W 



5100, 
6605. 
1347* 
0575, 
7051. 
3550* 
4547* 

0733* 
3137, 
5377, 
0072, 
4356, 
4566, 

ITH % 

% 
% 
% 
% 
% 
% 

X********F|RST FILL MUST 

34, 



0CTOO05402212262320, 
0cT00076O0336l54346, 
OcT0005i06662003641» 
0cT0002712227752734f 
0cT00044l7070626663* 
0cT000636l406732502» 
OCT0001650755141700» 
OcT0007646003207120» 
OnT0007420l66277771i 
Or. T 0003 005 3547 H677, 
0rT00030O25265441O3, 
0cT0007i75i5524745l, 
0cT0O0364i44354i723» 

fills must be in ascend 

Binary search in functi 
iNLiNEiNTm. tun - 1 



"OOABS 

"OOAIMAR 

"OOAINT 

"OOAMAXo 

"OOAMAXi 

"OOAMINO 

"00AMIN5 

"OOAMOO 

"OOAND 

"OOCMPLX 

"OOCOMPL 

"OOCONJf, 

"OODABS 

"OOOBLE 

"OODIM 

"OOOSIGN 

•♦OOEQUIV 

"OOFLOAT 

"OOIABS 

"OOIDIM 

"OOIDINt 

W 00IFIX 

"OOJNT 

"OOISJGN 

»*00MAX0 

"OOMAXi 

"OOMINO 

"00MIN1 

•♦OOMOD 

"OOOR 

"OOREAL 

"OOSIGN 

"OQSNGL 



ING 



0CT00067026547 
0CT00015404256 
OCT00050330436 
0CT000J4746757 
OCT00075227067 
OCT00050055710 
0CT00062231503 
0CT0O056174040 
0CT00017324223 
0CT00056066501 
OCT00016032542 
0CT00070344105 
OCT00046117544 
0Rde« FOR 



INLlMETNTti J,[2I10]»IN0 

COR 
6J=NA 
NSICS 



INUINETNTC T 3 .C 12« 3 

BE NUMBER OF INTRI 



ON ANO DOITJNLINE. 
ONCE CODE FOR JNTR 
HAS BEEN EMITTED I 
EX INTO 2-ND WORD 
R ENTRY IN jNT. 

ME OF INTRINSIC, 

***************** 



37004, 
07437, 
40461, 
45524, 
74440, 
52122. 
72260. 
50743. 
75777, 
00057, 
75130, 
21363, 
72310; 



INS I C 

NLINE. 
Of THE 



03472000 T 0099 

03473000 T 0099 

03474000 T 0099 

03475000 T 0099 

03476000 T 0099 

03477000 T 0099 

03478000 T 0099 

03479000 T 0099 

03480000 T 0099 

03481000 T 0099 

03482000 T 0099 

03483000 T 0099 

03484000 T 0099 

03484100 T 0099 

109 IS 138 LONG, NEXT SEG 

03484120 T OlOO 

03484122 T OlOO 

03484124 T OlOO 

03484126 T OlOO 

03484128 T OlOO 

03484130 T OlOO 

03484140 T OlOO 

03484160 T OlOO 

start of segment ********** 

03484180 T OlOl 

03484200 T OlOl 

03484220 T OlOl 

03484224 T OlOl 

03484228 T 0101 

03484232 T 0101 

03484236 T OlOl 

03484240 T 0101 

03484260 T 0101 

03484280 T 0101 

03484300 T OlOl 

03484320 T 0101 

03484340 T OlOl 

03484360 T OlOl 

03484380 T OlOl 

03484400 T OlOl 

03484420 T 0101 

03484440 T 0101 

03484460 T OlOl 

03484480 T 0101 

03484500 T OlOl 

03484520 T 0101 

03484540 T OlOl 

03484560 T OlOl 

03484564 T OlOl 

03484568 T OlOl 

03484572 T OlOl 

03484576 T OlOl 

03484580 T OlOl 

03484600 T OlOl 

03484620 T OlOl 

03484640 T OlOl 

03484660 T OlOl 



c 



o 



97 



110 



o 



c 
o 
o 
c 



c 



o 



o 
c 






c 
o 
o 
o 

o 

c 






■J 



"OOTIMf 
i 



COMMENT 



v_' 



O 



u 



o 



u 



O 1 



o 



; ^ 



o 



u 



O 



u 



'w> 



u 



FILL INT t 

thfse names 
ascending 
the second 
I r l ■ 1 3 = o 



p r 9 t 3 3 a . 

♦ U2J63 s 

• r 24 t 6 3 = 
» C 30»63 « 

, C 36 f 123 = 

THE FIELDS 



*] WITH 

Cl-ST WORn OF EACH TWO-WORD ENTRY) MUST BE IN 
ORDER FOR BINARY LOOKUPS. 

WORD HAS THF FOLLOWING FORMAT* 

IF THE INTRINSIC DOES NOT HAVE A PERMANENT PRT 

LOCATION, OTHERWISE = 1. MAY BE RESET BY 

WRAPUP. SEE • C 18*63 BELOWl 
INTSEEN s 1 IFF INTRINSICS FUNCTION HAS BEEN SEFN. 

intclass s class of the intrinsic, 

intparmclass = Class of parameters, 

,intinline 9 index for doitlnllne if 5*0' otherwise 

do it via intrinsic call, 
.intprt = fixed prt location, see ,tiuj above, 
»intparms = number of parameters required by the int, 
.intnum =? intrinsics number. 

• C 38 3 3 AND ,C18j6I ARE SO FAR UNUSED. 
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1 

% 

%******* 

g******* 

3! 

•♦ABS » 



••AlMAG » 
"A I NT »» 
"ALGAMA" 
"AL0G10" 

w AL0G » 
♦♦AMAXO « 

"AMAXl " 

"AMINO 

"AMIN1 

••AMOD 

♦•AND 

"ARCOS 

"ARSIN " 

"ATAN2 » 

"ATAN 

"CABS 

"CCOS 

"CEXP 

"CLOG 

"CMPLX 

"COMPL 

"CONCAT" 

"CONJG » 

"COSH 

"COS 

"COTAN 

"CSlN 

"CSQRT 

"DABS 




OCT00330J0000010007, 



OCTOO 
OCTOO 
OCTOO 
OCTOO 
0CT20 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
0CT20 
0CT20 
0CT20 
0CT20 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OCTOO 
OcTOO 
OCTOO 
OCTOO 



36O2OOOOO 
330300000 
330000000 
330000000 
330000350 
312500000 
332500000 
312500000 
332500000 
33O4OOOOO 
330500000 
330000000 
330000320 
330000440 
330000370 
360000450 
660000000 
660000000 
660000000 
630600000 
330700000 
330000000 
661100000 
330000000 
330000000 
330000000 
660000000 
660000000 
550100000 



10074, 
10054, 
10127, 
10103, 
10017, 
00031, 
00031, 
00032, 
00032, 
20063, 
20130, 
10117, 
10116, 
20114, 
10016, 
10053. 
10U0, 
10100, 
10102, 
20075, 
10132, 
50140, 
10076, 
10121, 
10015, 
10112, 
10106, 
10124, 
10052, 



START 



03484680 


T 


0101 




03484990 


T 


0101 




IS 36 LONG, 


NEXT SEG 


97 


03485000 


T 


0101 




03486000 


T 


0101 




03486010 


T 


0101 




03486020 


T 


0101 




03486030 


T 


0101 




03486040 


T 


0101 




03486050 


T 


0101 




03486055 


T 


01 01 




03486060 


T 


OlOi 




03486070 


T 


0101 




03486080 


T 


0101 




03486090 


T 


0101 




03486100 


T 


0101 




03486110 


T 


0101 




03486120 


T 


0101 




03486130 


T 


0101 




03486140 


T 


0101 




03486144 


T 


0101 




03486145 


T 


0101 




03486146 


T 


0101 




03486147 


T 


0101 




03486148 


T 


0101 




03486149 


T 


0101 




03487000 


T 


0101 




OF SEGMENT 


********** 


111 


03488000 


T 


0103 




03489000 


T 


0103 




03490000 


T 


0103 




03491000 


T 


0103 




03492000 


T 


0103 




03493000 


T 


0103 




03494000 


T 


0103 




03495000 


T 


0103 




03496000 


T 


0103 




03497000 


T 


0103 




03498000 


T 


0103 




03499000 


T 


0103 




03500000 


T 


0103 




03501000 


T 


0103 




03501500 


T 


0103 




03502000 


T 


0103 




03503000 


T 


0103 




03504000 


T 


0103 




03505000 


T 


0103 




03506000 


T 


0103 




03507000 


T 


0103 




03508000 


T 


0103 




03509000 


T 


0103 




03510000 


T 


0103 




03511000 


T 


0103 




03512000 


T 


0103 




03513000 


T 


0103 




03514000 


T 


0103 




03515000 


T 


0103 





c 



v^ 



c 



v_ 



c 



^ 



v^ 



c 



c 



c 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



u 



o 
o 
o 
o 

o 
o 

o 

o 



o 

o 
o 
o 
o 
o 
o 

o 



"DATAN2" 
"DATAN » 
"DBLE » 
"DCOS " 
h 0f xp » 

"DIM " 
"DL0G10" 
"DLOG « 
"DMAXl » 
"DMJNI » 

"DMOD " 
"DSIGN w 
"DSIN » 

"DSQRT " 
"EQUIV " 

"ERF " 
"EXP " 
"FLOAT " 

"6AMMA " 

"lABS " 
'» I I M « 

"I DINT " 
" I F I X » 

"INT " 
"ISIGN " 
".ERR. " 
".FBlNB" 
".FINAM" 
"tFONAM" 
".FREFR" 
".FREWR" 
".FTINT" 
"tFTNlN" 
",FTN0U" 
".FTOUT" 
".LABEL" 
".MATH " 
".MFMHR" 
",XT0I « 
"MaXO " 
"M A X1 " 
"Mi NO " 

"Mini " 

"MOD " 

"OR » 
"REAL " 

w sign •» 

"SINH " 
W SIN " 

"SNGL " 
"SqrT » 
"TANH « 

"Tan " 

"TIME " 

0; 



OCT0055000000020H5, 
OCT2055000041010H3, 
OCT0053120000010062, 
OCT0055000000010107, 
OCT2055000047010077, 
OCT0033100000020072, 
OCT0055000000010104, 
OCT2055000042010101, 
OCT0055000000000066, 
OCT0055000000000067. 
0CT2055000046020065, 
OCT0055130000020071, 
OCT2055000043010105, 
0CT2055000050010123. 
OCT0033H0000020133, 
OCT0033000000010125, 
0CT2O33000O33010O2O, 
OCT0031150000010060. 
OCT2033000040010126, 
0CT0011010000010007, 
OCT0011100000020072, 
OCT0015240000010057, 
0CT0013030000010054, 
OCT00130300000I0054, 
OCT0011160000020070. 
0CT2000000030000134. 
OCT0000000000000160. 

OCT0000000000000154» 
OCT0000000000000155, 
OCT0000000000000146, 
OCT0000000000000153. 
OCT0000000000000050, 
OCT0000000000000156. 
0CT0000000000000157, 
OCT0000000000000051. 
OCT0000000000000021. 
OCT0000000000000055, 
OCT0000000000000164. 
OCT0000000000000056, 
0CT0011250000000135, 
0CT0013250000000135, 
OCT0011250000000136, 
Of:T0013250000000l36, 
OCTOOU170000020137. 
OCT0033200000020131, 
0CT0036210O0OO10073, 
OCT0033160000020070* 
0CT0033000000010120. 
OCT2033000034010014. 
OCT0035230000010061. 
OCT2033000031010013* 
OCT0033000000010122. 
OCT20330000360101U. 
OCT0031220000010064. 



3516000 
3517000 
3518000 
3519000 
3520000 
3521000 
3522000 
3522500 
3523000 
3524000 
3525000 
3526000 
3527000 
3528000 
3529000 
3530000 
3531000 
3532000 
3533000 
3534000 
3535000 
3536000 
3537000 
3538000 
3539000 
3540000 
3540500 
3541000 
3542000 
3543000 
3544000 
3545000 
3546000 
3547000 
3548000 
3549000 
3550000 



3550500 T 



BLANKSmNLINEINTEMaX«-OJ ? 



Ill IS 



3551000 

3552000 

3553000 

3554000 

3555000 

3556000 

3557000 

3558000 

3559000 

3560000 

3561000 

3562000 

3563000 

3563010 

3563020 

3563030 

3563900 

169 LONG. 

3563910 T 



0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 

0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
NEXT SEG 
0103 



^ 



c 



c 



•"-1 



u 
c 
c 
c 
o 
o 
c 
c 
o 
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o 
o 
o 
o 
o 

c 



v_< 



L. 



U 



o 



w 



O 



s_y 



o 



FOR SCN*1 STEP 1 UNTIL BLANKS DO 
BEGIN 

EQVTfWNLlNElNTCSCNJ? WHILE 
!NL|NErNTtSCN].lNTX*MAX+l i 
END I 

intid, subclass «• intype; 
realid, subclass * realtypej 

FQVID * " # E"QOOO"; 
LISTID t= ".LiOOO"; 
BLANKS i » »l 

endsegtog * true; 

SCN * 7} 

MAX * RFALfNOT FALSE) , [ 9 I 39 ] ; 
SUpERMAXC0M*128x(MAXC0M+l) J 
SEGPTOG * FALSE* XlNHlBlT PAGE 

end initializations 



INTCMAX3/EOVID DO MAX«-MAX + 2 ; 



SKIP AFTER SUBROUTINES 



35501- 



ALPHA PROCEDURE NEED(T» C); VALUE Tt 
BEGIN INTEGER NJ REAL ELBAT; 



CJ ALPHA T» C; 



97 IS 



0356 
0356 

0356 
0356 
0356 
0356 
0356 
0356 
0356 
0356 
0356 
0357 
0357 
0357 
0357 
0357 
135 
0357 
0357 



3920 
3930 
3940 
3950 
3960 
4000 
5000 
6000 
7100 
8000 
9000 
0000 
1000 
1100 
1300 
2000 

LONG, 
3000 T 
4000 T 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
P 
T 



0104 
0109 

0109 

0113 

0116 

0118 

0120 

0122 

0122 

0123 

0124 

0126 

0126 

0128 

0130 

0131 

NEXT SEG 

0506 

0506 



c 



STACKCF+3) * N 
STACKCF+4) s ELBAT 

STACKfF+5) = X 



REAL X; 



U 



STACKfF+6) 3 
STACKfF+7) = 
STACKCF+10) 



LAB 
ALP 



o 



U 



■-■~j 



o 



o 



infa 

INFB 
■ INFC 
COM 
TF 
GIV 



EL, XTT, CHECK! 

HA JNFA, INFB» INFC? 



START OF SEGMENT ********** 112 



03574100 T 0000 

03575000 T 0000 
03576000 T 0000 



MEN 

THI 

EN 

ELB 

XTA 

IF 



IF 



o 
o 
o 



T NE 
S IS 

Then 
at.c 

; t 

c < 

BEG! 
I 
I 



E 
G 

End? 

n * 

BfGI 

I 

N 

6 

END* 

GETALLC 

IF IMF A 

TF BOOL 

IF INFA 

BEGIN 

TF N 

EL.BA 

N * 

Go T 



FD RETURNS THE ELBAT WORD FOR T H E IDENTIFIER T, 
THE FIRST OCCURRENCE OF T THEN AN INFO WORD IS BUILT AND 
CLASS CJ 

I, ASS * c; 



LABELID THEN 

N 

F 

F 

T 
IS 




N - SEARCH(T) = THEN N * ENTERCELBAT, T) ELSE 
ELBAT * GETCN). CLASS a UNKNOWN 
HEN PUTCN»GET(N)&CtT0CLASS3) 
E IF ELBAT * C THEN FL0GC21); 
TO XIT? 



SEARCHCT) s THEN 

N 

F 





N * GLOBALSEARCHCT) * THEN GO TO CHECK; 

GLOBALENTERCELBAT* T)> 
TO X I t; 



N,INFA»INFB»INFC)> 

iCLASS a DUMMY THEN BEGIN N * INFC, BASE* GO TO CHECK END; 

FANUNFA .FORMAL) ThEN rO TO CHECK; 

ICLASS * UNKNOWN THfN 

* gLObalseaRchct) / o ThfN go to check; 
tlsubclass * infa. subclass; 
globalenteRcelbat, t)i 
o XiT; 



03577000 
03578000 
03579000 
03580000 
03581000 
03582000 
03583000 
03584000 
03585000 
03586000 
03587000 
03588000 
03589000 
03590000 
03591000 
03592000 
03593000 
03594000 
03595000 
03596000 
03596100 
03597000 
03598000 
03599000 
03600000 
03601000 
03602000 
03603000 



0000 
0000 
0000 
0000 
0001 
0002 
0003 
0003 
0007 
0009 
0013 
0015 
0016 
0016 
0018 
0018 
0020 
0022 
0022 
0022 
0024 
0027 
0029 
0030 
0031 
0033 
0035 
0037 



c 
c 
c 

■—V 



f ' 



c 



^ 



c 

c 

c 

c 

c 
c 

c 



LJ 



L- 



I J 



w 



n 



u 



i i 



u 



u 






I J 



O 

O 

o 
o 
o 
o 



ENDJ 

PUT( N # InFA & DUMMY[T0ClASS3); 

ELBAT, SUBCLASS * INFA .SUBCLASS* 

IF X * GLOBALSEARCHCT) = THEN X * GLOBALENTERC ELBAT • T)J 

PUTCn+2* INFC & X[TOBASE]); N * X? 

CHECK1 

INFA * GETCN)J 

IF ELBAT * INFA .CLASS s UNKNOWN THEN 

BfGIN INFOCN.lR»N,IC], CLASS «• C; GO TO XIT ENDJ 
IF ELBAT * C THEN 

IF ELBAT = EXTID AND 

(C - SUBRIO OR C = FUNjD) THEN 
1NF0[N,IR,N,IC], CLASS * C 

ELSE IF (ELBATsSUBRlD OR fLBAT= FUNlD) AND C = EXTID THEN 

ELSE FL0Gf21>* 

xitj nefd * getspace(n)? 

xta «. name* % Restore xTa for diagnostic purposes 

END NEEn» 

intfgeR procedure exprcb); value bj boolean bj forward; 

PRT(707) s EXPR 

PROCEDURE SPLlT(A)j VALUE A? REAL A* 
PRTC710) b SPLIT 

BEGIN 

EmITpAIR(JUnk» ISn)J 

emITduo* di a ) ; 
emitdu8* i so ) i 

EMITDESCLITCAJJ 

emitoclodj? 

EMlTOPDCLITCJUNK)J 
EMlTPAIR(255,CHS) i 

emito(lnd)? 
end spltti 

boolean procedure subscr ipts cl i nk. from) i value link, from? 
prtc711) = subscripts 

integer link* from? 

BEGIN INTEGER U NSUBS, BDLlNKJ 

STACKfF+3) * I 
STACKfF+4) = NSUBS 
STACKfF + 5) * BDLiNK 

LABEL CONSTRUCT. XlT; 
REAL SUM, PROD, BOUND? 
STACKfF+6) s SUM 
STACKfF+7) 9 PROD 
STACKfF+lO) u BOUND 

real infa,infb,infc; 

STACKfF+iD = I N FA 
STACKfF+12) = InFB 
STACKCF+135 = InFC 

REAL SAVENSEG.SAVEADR I 
STACKCF + H) = SAVENSEG 
STACK(F+15) p SAVEADR 

INTEGER INDX; 
STACKfF+16) = INDX 

REAL INFDJ 
STACK(F+17) = INFD 



11? IS 



03604000 T 
03605000 T 
03606000 T 
03607000 T 
03607100 T 
03608000 T 
03609000 T 
03610000 T 
03611000 T 
03612000 T 
03613000 T 
03614000 T 
03615000 T 
03616000 T 
03617000 T 
03618000 T 
03618100 T 
03619000 T 
77 LONG. 
036P0000 T 



0037 
00 37 
0039 
0041 
0045 
0048 
0049 
0050 
0052 
0057 
0058 
0059 
0061 
0064 
0069 
0071 
0072 
0073 
NEXT SEG 
0506 



c 



c 



START 



03621000 T 0506 



03622000 
03623000 
03624000 
03625000 
03626000 
03627000 
03628000 
03629000 
03630000 
03631000 
03632000 

03633000 
03634000 

OF SEGMENT 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0506 
0506 
0507 
0508 
0509 
0509 
0510 
0511 
0512 
0513 
0513 



T 0513 
T 0513 

********** 
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03635000 T 0000 
03636000 T 0000 



03637000 T 0000 

03637100 T 0000 

03637200 T 0000 

03637300 T 0000 



c 
c 
c 



c 

c 



c 

c 

c 
c 
c 



C 



u C 

.-■v CT „ . „ rt . BOOLEAN TOG, VARFJ 03638000 T 0000 .-. 
-J STACK(F + 20) = TOG ( - 

STACK(F+21) = VARF 

REAL SAVITJ 03639000 T 0000 
^ STACK(F+22) = SAVIT ^ 

OEFTNe SS s LSTT#J 03640000 T 0000 

03641000 T 0000 

O 03642000 T 0000 C 

IF DEBUr,T0fi THEN FLAGROUTlNEC SUBSc M »"RlPTS ",TRUE ) ? 03643000 T 0000 

SAVIT * I T* 03644000 T 0002 

'^J LINK * GETSPACEfLlNK)' 03645000 T 0002 C 

GETALL(l.INK»INFA»lNFBiINFC)| 03646000 T 0004 

IF ImFA. CLASS * ARRAYID THEN 03647000 T 0005 

O BEGIN XTA * INFBJ FL0GC35)I Gq TO *IT END; 03648000 T 0006 <J 

NSUBS * INFC.NEXTRA; 03649000 T 0012 

IF FROM * 4 THEN 03649100 T 0013 

U BEGIN IF NSUBS GTR SAVESUBS THEN SAVESUBS ?* NSUBS; 03649200 T 0014 ^ 

IF NSUBS GTR NAMLIST[03 THEN NAMLISTtOJ »= NSUBS; 03649230 T 0016 

NAMLlSTtNAMElND3,U*B] I? NSUBS? 03649250 T 0019 

^ INFD is GET(NEED( m .SuBAR»#BLOCKID)).ADDR; 03649300 T 0021 ^ 

ENDS 03649400 T 0024 

BDLINK * INFC.ADINFO-NSUBS+I! 03650000 T 0024 

^ VARF * INFC < Oj 03651000 T 0026 ^ 

FOR | * 1 STEP 1 UNTIL NSUrS DO 03652000 T 0027 

BEGIN 03653000 T 0030 

IT«-lT + i; SAVENSEG*NSEGJ SAVeADR'ADR i 03654000 T 0030 O 

IF EXPR(TRUE) > REALTYPF THEN FLAGC98)} 03655000 T 0032 

IF ADR=SAVEA0R THEN FLARC36) ; 03655500 T 0035 

if vaRf then 03656ooo t 0037 C 

IF FXPRESULT=NUMCLASS AND NSeG=SAVfNSfG THEN 03657000 T 0037 

_ BEGIN 03658000 T 0039 _ 

O ADR+SAVEADR i 03659000 T 0040 C 

EMlTNUMCEXpVALUE-1 )} 03660000 T 0041 

END ELSE EMlTpAlRC l » SUB) 03661000 T 0042 

U Ei.SE 03662000 T 0043 C 

IF EXpRESULTsNUMCLASS AnD NSEG = SAVENSEG AND FROM NEQ 4 THEN 03663000 T 0043 

BEGIN 03664000 T 0047 

•J ADR-SAVEADRf IF SSC I T 3«-EXpVALUE<0 THEN FLAGC154) ; 03664100 T 0047 O 

END 03664200 T 0051 

,~ El.SE SSC I T 3 *■ 09; 03665000 T 0051 ~ 

O IF FROM u 4 THEN 03665010 T 0053 O 

BEGIN IF VARF THEN BEGIN EmITOCDUP); EMI TPAI R t 1 » ADD ) t END? 03665100 T 0053 

EMITL(INDX)} INDX ?s INDX+U 03665200 T 0056 ._, 

^ EMITDESCLITflNFD)? 03665300 T 0058 O 

EMlTOdF VARF THFN STD ELSE STN); 03665400 T 0059 

-. END; 03665500 T 0061 ^ 

^ If I < NSUBS THEN 03666000 T 0061 ^ 

BfGIN 03667000 T 0062 

if globalnext j* comma then 03668000 t 0063 ~ 

^ begin xta «- infbj fl0gc23) ends 03669000 t 0063 o 

scan; 03670000 t 0065 

END; 03671000 T 0066 

^ ENDS 03672000 T 0066 O 

IF GLOBALNEXT * RPAREN THEN BEGIN XTA «. iNFB; FL0GC24); END 03673000 T 0068 

Ei.SE IF FROM < ? THEN 03673100 T 0071 

L) BEGIN SCAn; IF PREC > THEN FROM * 11 END; 03673200 T 0073 O 

SUM * 0; 03674000 T 0076 



n- 



o 



o 



o 

c 



TOG ; VARF; 03675000 T 0077 

•J IF V A RF THEN 03676000 T 0078 

FOR I *■ NSURS-1 STEP "1 UNTIL 1 00 03677000 T 0078 

,-. BEGIN 03678000 T 0083 ,- 

^ IF BOUND * EXTRAlNFOC(BDLINK*BDL.INK + l),IRiBDblNK.IC] < THEN 03679000 T 0083 ^ 

EMITOPDCLIT(BOUND) ELSE EM I TNUM (BOUND) ; 03680000 T 0087 

EMITOCMUD? 03681000 T 0090 

'^ EMITO(ADD); 03682000 T 0090 ^ 

END 03683000 T 0091 

EtSE 03684000 T 0091 

O FOR t * NSUBS STEP "1 UNTIL 1 DO 03685000 T 0092 C 

BEGIN 03686000 T 0094 

IF I * 1 THEN BOUND * 1 ELSE 03687000 T 0094 

U BOUND *■ EXTRAINFO[(RnLTNK*BDLlNK + l),iR,BDLINK,IC]J 03688000 T 0096 C 

j r T «• SStSAVlT + H < 99 ThEN 03689000 T 0100 

BFGIN 03690000 T 0102 _ 

O SUM * (SUM+T-lJXBOUNDJ 03691000 T 0102 ^ 

IF TOq THEN PROD * PROd*BOUNd$ 03692000 T 0105 

FNO 03693000 T 0107 

O FLSp 03694000 T 0107 C 

BfGJN 03695000 T 0107 

IF TOG THEN BEGIN EMi TNUMC PROD ) ? EMIT0CMUL>? EMlTOfADD) END 03696000 T 0l09 

O ELSE TOG * TRUE? 03697000 T 0112 ^ 

prod «. bound; 03698000 t 0113 

SUM * (SUm-1 )xB0UNDJ 03699000 T 0114 ^ 

° EmD? 03700000 T 0115 ^ 

END) 03701000 T 0115 

IF VARF THEN T «. 09? 03702000 T 0118 

^ IF INFA. SUBCLASS > DOUBTYPE THEN 03703000 T 0119 

BEGIN 03704000 T 0120 

~ IF TOG THEN 03705000 T 0121 

^ BFGIN 03706000 T 0121 C 

IF T < 99 THEN EMi TNUMc 2xPR0D) ELSE EMITLC2)? 03707000 T 0122 

EMlTOfMUDJ 03708000 T 0126 ^ 

'O END» 03709000 T 0127 C 

SUM » SUMx2; ' 03710000 T 0127 

END FLSE 03711000 T 0128 

w IF T < 99 AND TOG THEN BEGfN EM I TNUM (PROd ) f EMlTO(MUL) END? 03712000 T 0128 C 

IF B00LFAN(INFA.CE3 THEN 03713000 T 0132 

SUM «- SUM + tNFC.BASf ELSf 03714000 T 0133 

O IF BOOLEANCINFA, FORMAL) ThEN 03715000 T 0135 C 

BEGIN EMITOPDCLITmNfA.ADDR-1)* 03716000 T 0137 

IF TOG THEN EMlTOfADD) ELSE TOG * TRUE* 03717000 T 0140 

END? 03718000 T 0i42 C 

IF BnOLEAN(lNFA.TWoD) AnD FROM >0 THEN 03719000 T 0142 

r . BEGIm 03720000 T 0144 

O if sum o o then 03721000 t 0145 C 

IF TOG THEN ELSE 03722000 T 0145 

BEGIN 03723000 T 0147 

U EMITLCO)? 03724000 T 0147 ^ 

EMITDESCLIT( INFA.ADDR)? 03725000 T 0148 

~ EMITOCLOD)? 03726000 T 0149 _ 

O EMITLCO)? 03727000 T 0150 O 

GO TO CONSTRUCT? 03728000 T 0151 

END 03729000 T 0151 

O ELSE 03730000 T 0151 O 

IF TOG THFN 03731000 T 0151 



r-> 



vJ 



U 



r^ 



o 



^ 



^. 



w 1 



o 



u 



o 
o 
o 
o 

O 

s — ■, 

o 

o 



BEGIN 

EMITNUMCABS(SUM))> 

IF SUM < THEN EMITO(SuB) ELSE EMlTO(ADD)? 
END ELSE 
BFGIN 

FM!TL(SUM,[33J73); 

FMlTDESCLlT(!NFA,ADRR)i 

EMlTO(L0D)J 

EMlTL(SUM,r40?63)J 

GO TO CONSTRUCT? 
END? 
SpL!T(lNFA,ADDR)? 
CONSTRUCT} 

IF BOOLEANCFROM) THEN 
BFGIN 

IF INFA, SUBCLASS > DoUBTYPE THEN 
BEGIN 

EMITOCCDC)? 
EMITO(DUP)? 

EMITPAIRCI. XCH)? 
EMITO(iNX)? 
EMITOCLOD)? 
EMITOCXCH)? 
EMITO(LOD)? 
END ELSE EMlTO(COc)? 
END ELSE EMJTO(CDC)? 
END fLSf 
BEGIN 

tf sum s o then if not tog 

ELSE 
BEGIN 
IF 



then fMitlco) else 



o* 



<j 



O 



TOG THEN 
BEGIN 

EMITnUm(ABS(SUm))? 

IF SUM < THEN EmITOCSUB) 
END 

Ei.SE EMITnUm(SUm)? 
END? 
IF FROM > THEN 

IF BOOLEAN (FROM) THEN 

IF INFA. SUBCLASS > DoUbTYPe THEN 
BEGIN 

EMITDESCLIT(INFA.ADDR)? 
EMITO(DUP)? 

emitpairu* XCH)? 

EMlTO(iNX)? 
EMITO(LOD)? 
EMITO(XCH)? 
EMITO(LOO)? 
END ELSE EMITV(LINK) ELSE 
BEGIN DFSCREQ * TRUE? EMlTN(LlNK)? DEScRfQ 
END? 
XI T t 

IT * SAVTT? 

SUBSCRIPTS * BOOLEAN(FROM)? 
IF DEBUGTOG THEN FlAGROUTi N E(»' 
END SUBSCRIPTS? 



ELSE EMITOCADD)? 



FALSE END? 



SUBSC»'#»RIPTS 'SFALSE) ? 
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BOOLEAN PROCEDURE BOUNDS CL INK } J VALUE L INK? REAL LINK ; 
PRTC712) b BOUNDS 

BEGIN 

COMMENT CALLED TO PROCESS ARRAY BOUNDS} 

BOOLEAN VARF* SINGLETOG? 



113 IS 211 LONGt NEXT SEG 
03788000 T 0513 



£109 



STACK(F+3> 
STACKfF+4) 



STACKf"Ff5) 
STACKfF+6) 
STACKfF+7) 



VARF 
SlNGbETOG 

DEFINE 

Real 



03789000 

03790000 

03791000 

START OF SEGMENT 



T 0513 
T 0513 
P 0513 

********** 
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FNEW = LjNK#l 
T, NSUBS, INFA, 



T 
NSUBS 

infa 

STACKfF+10) s rNFB 
STACKfF+11) = INFC 
STAcKfF+12) = FlRSTSS 

LABfL 



INFB. fNFC» FlRSTSS; 



LOOP? 



u 



<J 



'vj 



O 



O 



u 



O 



o 



o 

o 



IF DEBUf,T0G THEN FlAGROUTInEC" B0U"*»NDS "iTRUE ) ? 

getallcfnew, infa. infb» info; 
firstss «• nextss; 
if link < then begin singletog * true? link *- abscllnk) end? x109- 

LOOP J 

IF NEXT = ID THEN 

BEGIN 

T *■ GETfFNEXT *■ GETSpACECFNEXT ) ) J 

IF T, CLASS # VARID OR NOT BOOLEANC T . FORMAL) 

IF T, SUBCLASS > REALTYPE ThEN FLAGC93)? 

T «• -T.ADDRJ 



THEN FLAG(92) ELSE 







THEN LENGTH * FNEXT ELSE 



*• 

VARF - TRUE! 
END ELSE 

IF NEXT ~ NUM THEN 
BEGtN 

IF NUMTYPe#!NTyPE THEN FLAGC113) ? 

if t*fnext=o then flaG(122) 

IF NOT VARF THEN IF NSUBS = 
LENGTH * LENfiTHxFNEXTl 
END ELSE FL06C12?)> 
EXTRAjNFOrNEXTSSiiR, NEXTSS. tC] «. 
NEXTSS * NEXTSS-1* 
NSUbS *. NSUBS + ! ; 
SCAmJ 

if w ext = comma then begin scan; 
if next t rparen then fl0gc94)? 

XTA * INFB? 

IF INFA,CLASS e ARRAYID THEN FLAGC95)? 
INFa. CLASS «■ ARRAYID? 
IF VaRF THEN 
BEGIN 

TF NOT BOOLEANdNFA. FORMAL) THEN FLAGC96)? 
IF NSUBS > 1 OR INFA .SUBCLASS > DOUBTYPE THEN 

BEGIN BUMPLOCALS;LENGTH*LOcALS + 1 536 ? B0UNDS*TRUE END ELSF 
LFNGTH ♦-EXTRAINFOCFIRSTSS.IR.FIRSTSS.IC]? 
END FLSE 
IF NOT SINGLETOG AND I NFA^ SUBCLASS > LQgTYPE THEN 



t; 



GO To LOOP EnDJ 
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03793000 T 0000 
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03795000 
03796000 
03797000 
03798000 
03799000 
03799500 
03800000 
03801000 
03802000 
03802100 
03803000 
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03805000 
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03807000 
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03815000 
03816000 
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RFfilN LENGTH «• 2 x LeNgTH? BOUNDS 4- TRUE END? 
IF LENGTH > 32767 THEN FLAG(99); 

jNFr. «• LENGTH * NSUBS[ TONfXTR A ] & F I RSTSSf TOAD I NFO 3 ? 

if vaRf then infc «• -infc; 
putffnew. infajj putcfnew+2, info? 

SCAN? 
IF DEBUgToG THEN FlAGROUT J N E( » B0U»,»NDS », FALSE) J 
END BoUnDS) 

procedure parametersclInK); value link? real link; 
prtc713) ~ parameters 

BEGIN 



2109- 



03834500 
03835000 

03836000 
03837000 
03838000 
03839000 
03840000 
03841000 
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STACK(F+2) = 

STACK(F+3> * 

STACK(F+4) ? 

STACKCF+5) = 

STACKtF+6) s 

STACKfF+7) 9 
STACKfF+10) 

STACKfF + H) 

STACKfF+12) 
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o 
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LABEL LOOP? 

REAL NPARMS* EX, INFC* PTYpE? 
NPARMS 
EX 

INFC 
PTYPE 

ALPHA FXPNAME? 
EXPNAMe 

BOOLrAN CHECK* TNTFID? 
CHFCK 
= INTFID 

BOOLrAN NOTZEROP? 
s NOTZEROP 

Real savit? 

= SAVlT 

DEFINE PARMTYPE = LSTT#; 
SAVIT * IT * I T + i ; 
IF DEBUcJOG THEN FlAGROUT I NEC » pARAM"» "ETERS ".TRUE ) ? 
INFC * GET(LlNK+2)? 

IF CHECK * BoOLEANClNFC.mn) THEN 
BEGIm 

EX * INFC.ADINFO? 
NOTZEROP * INFC.NEXTRA ?* 0? 
INTFID «- INFC . C 36* 123 • 1? 
END? 
LOOP! 
BEGIN SCAN? 

EXPNAME * NAME? 

IF GLOBALNEXT - AND NaM F = «S » THEN 
BFGIN EXPRESULT *• LABELID? SCAN? 

IF GLOBALNEXT f NuM THEN FLAGC44)? 

EMITLABELDESC(NAMF)? 

PTYPE * 0? 

SCAN? 

END 
ELSF PTYPE * EXPRfCHFCK AND EXTRA I NFOf EXl I R »EX , I C J , CLASS 

= EXPCLASS AND INTFID)? 
IF EXPRESULT c NUMCLASS ThEN 
IF PTYpE = STRINGTYPE THEN 
BEGIN 

ADR *■ ADR - 1? 
PTYpE «. INTYPE; 



START 



03842000 

03843000 
03844000 
03845000 
03846000 
OF SEGMENT 
03847000 



0069 
0072 
0074 
0076 
0078 
0081 
0081 
0083 
NEXT SEG 
0513 



03852000 
03853000 
03854000 
03855000 
03856000 
03857000 
03858000 
03859000 
03859500 
03860000 
03861000 
03862000 
03863000 
03864000 
03866000 
03867000 
03868000 
03869000 
03870000 
03871000 
03872000 
03873000 
03874000 
03875000 
03876000 
03876500 
03877000 



T 0513 
T 0513 
T 0513 
T 0513 

********** 
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03848000 T 

03849000 T 

03850000 T 

03851000 T 
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fXPRESUUT * SUBSVARJ 03878000 T 0034 

^ IF STRINGSIZE - t AND 03879000 T 0035 ^- 

(T * EXTRAINF0[EX,1R»EX,IC], CLASS = VARID OR 03880000 T 0036 

r) T ~ EXPCLASS) THEN 03881000 T 0040 n 

BEGIN 03882000 T 0041 <- 

EXPRESULT * EXPCLASS? 03883000 T 0041 

EMITNUM(STRiNGARRAY[0])J 03884000 T 0042 

END ELSE 03885000 T 0043 C 

BEGIN 03886000 T 0043 

n EXPRESULT*ARRAYID J 03887000 T 0044 

^ EMlTPAlRCPRGDESCBLOR(l#Oi 0, NXAV I L«-NXA V I L + l ) » L0D)J 03888000 T 0044 C 

EMlTL(O)) 03889000 T 0048 

WRlTEOATACSTRlNGSrZr* NxAVlL* STRl NGARRAY) i 03890000 T 0048 

^ END; 03891000 T 0050 C 

END ELSE FXPRESULT * EXPCLASS* 03892000 T 0050 

PARMTYPEUTj .-OS EXPReSULT[TOCLASS] & PTYPEtTOSUBCL]* 03893000 T 0051 

XTA * EXPNAME» 03894000 T 0055 C 

IF TSSEDITOG THEN IF f EXPRESUl,T = FUni D OR EXPRESUlTsSUBRI D OR 03894050 T 0055 

EXPRESUlTbEXTID) AND NOT DCINPUT THEN TSSED(XTA»?) I 03894060 T 0058 

IF DCINPUT THEN IF EXPRESULT=FUn I D OR EXPRESULT-SUBRID 03894100 T 0062 C 

OR EXPRESULT=EXTID T H EN FlAGC|51) i 03894200 T 0064 

IF CHECK THEN 03895000 T 0067 

w BEGIN 03896000 T 0068 C 

IF T * EXTRAINFOtEX.IR.EX.KJ, CLASS * EXPRESULT THEN 03897000 T 0068 

CASE T OF 03898000 T 0072 ~ 

w BEGIN 03899000 T 0073 ^- 

PRT(714) = *CASE STATEMFNT DESCRIPTOR* 

FXTRAINFOTEX.IR^EX.IC] * 8 EXPRESULTC TOCLASS ] 03900000 T 0073 

^ & PTYPECTOSUBCLJJ 03901000 T 0077 C 

IF EXPRESULT * SUbSVaR THEN FLAGC66); 03902000 T 0079 

^ IF EXPRESULT = SUbSVaR THEN 03903000 T 0081 

^ IF NOT INTFID THEN 03903100 T 0082 C 

BEGIN EMITO(CDC); 03903150 T 0083 

IF PTYPE * DOUBTYPE THEN EMITL(0)> 03903200 T 0084 

'^> END ELSE 03903400 T 0086 

P LS E „ 03903500 T 0086 

IF EXPRESULT = EXPCLASS THEN 03904000 T 0087 

^ BEGIN IF PTYPE * QOUbTYPE THEN EMlTO(XCH)J 03904100 T 0088 C 

EXTRAiNFOCEX.lR.EX.ICKCLASS * EXPCLASS 03904200 T 0090 

END ELSE FLAG(67)> 03905000 T 0093 

^ l J ' 03906000 T 0096 O 

FL,AG(68)J 03907000 T 0096 

IF EXPRESULT = EXTID T H EN 03908000 T 0098 

^ PUTCEXpulNK»GET(EXPLlNK)&FUNlDCT0CLASS3) ELSE 03909000 T 0098 O 

ELAGC69)> 03910000 T 0101 

? 03911000 T 0103 

O IF EXPRESULT s FU N ID OR EXpRESULT = SUBRID THEN 03912000 T 0103 O 

EXTRAINF0CEX»IR,EX,IC3 * EXPRESULT ELSE FLAGC70)J 03913"oOO T 0105 

IE EXPRESULT = EXTID T H EN 03914000 T 0110 

'~ i PUT(EXpLINK.GET(EXPLlNK)&SUBRlDrTOCLASS]) ELSE 03915000 T 0111 O 

ELAGC71 )J 03916000 T 0114 

O ' '* 03917000 T 0116 _ 

° IF EXPRESULT = ARRAYtD THEN EXTRA I NFOT EX , I R, EX . I C ] , CLASS 03918000 T 0116 O 

* ARRAYID ELSE 03919000 T 0119 

r IF EXPRESULT = VARID ThfN 03920000 T 0121 

^ BEGIN 03921000 T 0122 O 

EXTRAINF0CEX,IR»EX,IC], CLASS * SBVEXPJ 03922000 T 0123 
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IF 



eno 

IF 

BEG 



END 
EXP 
IF 
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O 
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ELS 
ELSE 



IF EXP 

EMI 

IF EXP 

IF 
ELSE I 
FND OF 
ELSE I 



EMJTL(O) 

ELSE 

expresult s expclass then 

IN 

EXTRAINFOTEX, IRfEX, IC3, CLASS «. SBVEXP; 

IF PTYPE * DOUbTyPE THEN EMITOfXCH) ELSE EMITL(O); 

ELSE FLAG(72)J 
RESULT a SUBSVAR THEn 
NOT INTFID THEN 
BEGIN EMITO(CDC); 

IF PTYPE > DOUBTYPE THEN EMITU(O) 
END 
E 

IF EXPRESULT * VARID THEN 

IF NOT INTFID THEN 
IF PTYPE * DOUBTYPE THEN EMITLCO) ELSE ELSE 
ELSE FLAGC67)J 
RESULT s VARID ThEN 
TLCO) ELSE 

RESULT = EXPCLASS THFN 

PTYPE i DOUBTYPE THEN EMITO(XCH) ELSE EMITL(O) 
F EXPRESULT * SUflSVAR THEN FLAG(67)I 

CASE STATEMENT 
F PTYPE * DOUBTYPE ThEN 



INTFID 



o 

o 
o 
o 

o 



O 
O 



IF N 
I 

end; 

IF G 

npar 

IF G 

IF N 
BEGI 
INFC 
INfc 

PUT( 

F 
B 



IF EXPRESULT ? VARlD THEN EMlTL(O) 
ELSE IF EXPRESULT 9 EXPCLASS AND NOT 

THEN EMITOfXCH)! 
IF T ♦ EXTRAINF0[EX,IR» EX. IC], SUBCLASS 

ct s inTYpe and ptype * realtype and 

GETCLlNK), SEGNO = 0) THEN 

EXTRAlNFOtEX.lR.EX.ICKsUBCLASS *■ 
IF NOTCT s PTYPE OR T - REALTYPE AND 

FLAGC88)> 
END OF CHECK 
ELSE IF PTYPE > DoUBTYpE THEN 

IF EXPRESULT s VARID THEN EMITL(O) 
ELSE IF EXPRESUlT = EXPCLASS THEN EMITOCXCH); 
0TZER0P THEN EX * EX+1; 
T * IT + U 



= OR 



PTYPE ELSE 

PTYPE = INTYPE ) THEN 



LORA 

MS * 

loba 

OT C 

N 

* G 

s 

LINK 
OR T 
FGIN 
EX 
NE 

EmD; 



LNEXT s COMMA 
IT - SAVITJ 

lnext / rpaRen 
heck thfn 



THEN GO TO LOOP? 
THEN FL0GC108); 



FT(LlNK+2); 

ClNFC & NPARMStTONFXTRA] 

NEXTEXTRArTOADlNFO])} 

+ 2.INFOI 
* SAVJT STEP 1 UNTIL IT-1 



DO 



TRAINFOTNEXTEXTRA.IR.NEXTEXTRA.IC] 
XTEXTRA *- NEXTEXTRA + 1? 



PARMTYPEt 1)1 



END 
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IF 



fnd 



ELSE 

IF T * GET(LINK+2),NEXTRA > AND T * NPARMS OR 

TsO AND INTFID AND NPARMS < 2 OR 

T = AND NOT INTFID ThEN 
BEGIN XTA * GETCLINK+1)? FLAGC28) END; 
DEBUrTOG THEN FL.AGROUTINEC" PARAM m »"ETERS ", FALSE) 

it * savit-1j 
parameters? 



PRT(7l5) 



STACKfF+2) 
STACK(F+33 
STACKrFiA) 
STACKfF+5) 



PROCEDURE 

stmtfunref 

BEGIN 



stmtfunrffclink); value Link; Real link; 
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03962000 T 

03963000 T 

03964000 T 

03964500 T 

03965000 T 

03966000 T 

03967000 T 

03968000 T 
239 LONG. 

03969000 T 



0217 
0217 
0221 
0224 
0226 
0229 
0231 
0232 
NEXT SEG 
0513 



rfal i. paRmlink, npaRms, seg; 



start 



t I 



03970000 
03971000 

Op sfgMent 



T 0513 
T 0513 

********** 
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parmlt 

NPARMS 
SEG 
IF 



TF 
END 



NK 



DEBUfiToG 

PA 
DO 
BEGIN 

SC 

IF 
A > 
BE 
PA 
NP 
UN 
IF 
SC 
GF 
IF 
SF 
BR 
EM 
AD 
DEBUftTOr, 
STMTFUN 



THEN Fi.AGROUTjnEC" STMTf" . "UNREF ".TRUE ) ; 
RMLlNK «• 6ETCLINK + P),C36I123I 



IF 



END 



an; 

A*E 

REA 
GIN 
RMLI 
ARMS 
TIL 

NEX 
AN; 
TALL 

NPA 
G *■ 
ANCH 
iTBf 
JUST 

THE 
REF* 



XpR(TRUE) * B-GET(PARMLINK) 
LTYPE OR B > REALTYPE THEN 
XTA * NNEWJ FLA6C88) END; 
NK «- PARMLINK-3J 
+ NPARMS+l; 

next # comma; 

t * rparen then fl0gc108); 



SUBCLASS THEN 



X108' 



INfOI 

THFN FLAG(28); 



(LINK, INFAi XTA. 
RMS * INfCNeXtRa 
INFA. SEGNO; 

LlTf INFC.BASE&SEGCTOSEGNOJ.FALSF); 
INFA.ADDR & SEGtTOSEfiNO]» FALSE); 

; 

N FLAGROUTINEC" STMTf" » "UNREF ".FALSE) 



BOOLEAN PROCEDURE DOI T I NL I NEC |iNK ) * VALUE LNK> REAL LNK 
PRTC716) = DOITINLINE 

BEGIN 

REA|. Ct I#Ct»C2»C3»C4#C5 ; 

STACK(F+3) = C 
STACKCF+4) = I 
STACK(F+5) = CI 
STACK(F+6) s C2 
STACK(F+7) 3 C3 
STACK(F+10) = C4 
STACK(F+11) = C5 



117 



START 



03971010 


T 


0000 


03972000 


T 


0002 


03973000 


T 


0004 


03974000 


T 


0005 


03975000 


T 


0005 


03976000 


T 


0005 


03977000 


P 


0008 


03978000 


T 


0011 


03979000 


T 


0013 


03980000 


T 


0014 


03981000 


T 


0015 


03982000 


T 


0016 


03983000 


T 


0018 


"03984000 


T 


0019 


03985000 


T 


0020 


03986000 


T 


0023 


03987000 


T 


0024 


03988000 


T 


0027 


03989000 


T 


0029 


03989010 


T 


0030 


03990000 


T 


0032 


S 37 LONG. 


NEXT SEG 


03990010 


T 


0513 


03990020 


T 


0513 


03990030 


T 


0513 


OF SEGMENT 


********** 
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LABfL hunt»found»xit»aimag»aint,cmplx,loop.ddtiii»sngl ; 

deftne optype«lstt#, fo=fMtto#, eP-emitpair#. eol=emitopdcljt# ; 

IF nEBUGTOG THEN FLAGRQUTt NEC "DO I T! N", »L I NE ".TRUE) ; 
Cl*'i; C2*!NLINE!NTrO]| c3«-GETf ABSCLNK ) + l ) ; 



HUNT! 



03990040 
03990045 
03990047 
03990050 
03990060 



0000 
0000 
0000 
0002 
0005 



c 
c 
c 

c 
c 

c 

c 



c 



c 
c 

c 
c 
o 
o 
c 



w 



w 



, [I*(Cl+C2).C36lin3.lNAM)<C3 THEN C1*I+1 
IEN C2-I-1 ELSE GO FOUND i 

iO HUNT i 

3 1 lNAM?tC3 THEN 



o 
o 



IF rC«-TNLlNE!NTI 

elsf if c>C3 The 

IF fl<C2 THEN G< 

IF !NLtNEINT[C1 

BEGIN 

if lnk<o then doitini.ine*boolean(uookforintrinsicc-lnk>) * 
GO xit ; 

END ; 

i ♦ c T i 

FOUND! 

Ci*fC»INT[C2*-CC4*INLlNElNTCll).INTX]) t INTPARMCUASS ; 
IF LNK<0 THEN 
BEGIN 

W-LNKI D 
IF CC?*GET 
PUT(LNK+2, 
FOR 1*1 ST 
BEGIN 
EXTRA 



0itinline*b00uean(lnk«-need(c3»funid)) i 
cunk+2)xo then go xit j 

-(c2&(i«-c,intparms)ct0nextra]&nextextra [toad info])) i 
ep "1 until 1 do 



O 



U 



^ 



o 



~U 



■u 



3 



<y 



o 



IF 
IF 

LOOP* 
IF 

IF 



PRT(7l7) = *CASE 



NEXTE 

END ? 

INFOCLNK.I 

GO XI T I 

END i 

IF pOOLEANfLNK. 

STArKHFADtGETCf 

LNK^lNTiNLlNE 

IF C4>0 THEN IN 

XREF THEN En 

GLOBALNEXT*l 
SCAN) C5* 
1=0 THEN 

IF LNK=10 
(C4*EXpR(TRU 
BEGIN XTA* 
I*U1J IF GLOB 
IF GLOBALNEXT*R 
IF T^C.INTPARMS 
BFGIN XTA* 
OPTYPEt IT3*C,IN 

casf clnkm) Of 

BFGIN 
STATeMfNT DESCRIPT 
EOCSSP) J 
EOfDEL) ; 
EP( 1»IDV) 

fO(Rdv) ; 

F-O(LND) i 

eocxoi) ; 

E0CLNG) ; 



AIMAGS 
AINT5 



CMPLXJ 



INF0[NeXTEXTRA«IR»NEXTEXTRA.IC]*0&EXPCLASS[T0CLASS3 

&C1IT0SUBCL] J 

xtra*nextextra+i i 

R.UNK,lcJiSUBCLASS*C.INTCLASS I 



[251]) THEN 

NeXTtNF0«-NfXTINF0-3)+1) MOD SHX ] *GET (NEXT I NF0 ) . L? NK J 
i !NT[C23:iNTSEEN*l* DOITINLINE-TRUE i 
LINElNTrl3*-C4* 1*0 ; 
TERX(C3,0&FU N lD[TOCLASS3&Ct?l * 6* 33 5 1 

paren then begin flog<io6)j go xit end i 

XTA i 

THEN EMITL(O) ELSE IF LNK=21 THEN EMI TDESCLI T ( 2 ) I 

E))*C1 AND (Cl^RFALTYPE OR C4*INTYPE) THEN 

C5J FLAGC88); C2*-2 END 8 

ALNEXTsCOMMA THEN GO LOOP J 

PAREN THEN BEGIN FL0G(108)J C2*-2 END; SCAN I 

THEN IF C.INTPARMS*0 OR K? THEN 
C3; FLAGC28); c2*-2 END I 
TCLASSf IF C2<0 THEN GO XIT » 



OR* 

% 911 ABSt DABS, IABS, 

% 02 J AT MAG. 

i % £35 AINT, iriXn INT. 

% 94 8 AMOD*. 

% e5« LOGICAL AND. 

% 96J CMPLX. 

% e/! LOGICAL COMPLIMENT (NEGATION). 



O 

o 



BEGIN % $\0l DlM> IDIM. 
EO(SUB); E0(DUP)J EP(OtLESS) J 
IF ADR>4082 THEN BEGIN ADR*ADR+18 
EP(2»BFC)J EO(DEL)J EMITl(O) i 
END ; 



SEGOVF END 



03990070 
03990080 

03990082 
03990084 
03990086 
03990088 
03990090 
03990092 
03990094 
03990096 
03990098 
03990100 
03990102 
03990104 
03990105 
03990108 
03990112 
03990114 
03990116 
03990117 
03990118 
03990120 
03990122 
03990124 
03990126 
03990127 
03990128 
03990130 
03990132 
03990134 
03990136 
03990H0 
03990145 
03990150 
03990160 
03990165 
03990170 
03990180 
03990190 
03990195 
03990200 
03990210 
03990220 

03990230 
03990240 
03990250 
03990260 
03990270 
03990280 
03990?90 
03990^91 
03990300 
03990310 
03990315 
03990320 
03990330 



0006 
0010 

0016 

0017 

0019 

0019 

0022 

0023 

0023 

0023 
0024 

0027 
0028 
0029 
0032 
0034 
0039 
0041 
0041 
0044 
0046 
0047 
0049 
0054 
0054 
0054 
0055 
0060 
0065 
0068 

0072 
0075 
0076 
0077 
0082 
0085 
0088 
0091 
0094 
0098 
0101 
0104 
0105 

0106 
0107 
0109 
0111 
0112 
0114 
0115 
0116 
0116 
0116 
0119 
0122 
0124 






c 

o 
o 
c 
o 

.—1 

o 
o 
o 
o 
o 
o 
o 
o 
o 






^ 



O BEGIN EOCXCH); EO(CHS); GO CMPLX END i % PHI CONJG, 03990340 T 0125 C 

; % 012* DBLE (SOME code already EMITTED ABOVE)i 

^ BEGIN EO(XCH); EO(DEL) i % 0131 DSlGN, 03990360 T 0128 ( - 

DDT11U EMITDDT(1»1»1) J 

END ; 

EO(LQV) ; % 014? LOGICAL EQUIVALENCE. 

J % 015? FLOAT, 
O fiO ODTlll I * 9161 ISIgN* SIGN, 

BEGIN EOCRDV); GO AINT END ; % ®l7l MOD, 

EOCLOR) ; % 0201 LOGICAL OR, 
O BFGIN EOCXCH)? GO AIMAG ENn i * 02H REAL, 

EPCliKOM) ; % 022$ T|Mf, 

O BFGIN % 023J SNGL. 

SNOL* EP(9,SND)J EO(XCH)* FMI TDDTf 47,9 , i ) J EMITL(O) '» 

EMlTDDT(9,9,38)J E0L(9)? EMITOCADD)* IF LNK=20 THEN GO AINT I 

O end ; 



GO SNGL ; % 024* IDInT . 



u 



BEGIN % 0251 AMAXO»AMAXl»AMlNO#AMINl#MAXO#MAXliMINO»MINl, 

% SOME CODE ALREADY EMITTED ABOVE, _,.„_,,„ , „,_ 

^ IF ADR>4068 THEN BEGIN ADR*ADR+1; SEGOVF END ; 03990542 T 0148 L 

EP(9,STD)> EOCDUP); eOL(9) I 

EOCIF C3,C24>6Js«a» OR C 3, [ 24 $ 6 ] S »X» THEN LESS ELSE GRTR) J __ _ 

^ EPC2*BFC); EOCDEL)? F0L(9)j EOCXCH)! F0(T0P)J EO(LNG) i 03990555 T 0159 ( - 

EPC14.BBO? EOCDEL); IF C3=»MlNl » OR C3s"MAXl " THEN GO AINT 

END i 

FND OF CASE STATEMENT ; 

START Dr RrnMrNT ********** 119 

X I T J 

if reburtog Thfn flagRout?nfc»doittN%»line % FALSE) t 

END OF DOlTiNLlNE * 03990820 T Oi 7l U 



U 



REAL PROCEDURE LOOKFORI nTR I NS I C( L) i VALUE D REAL L' 
O BEGIN 

ALPHA ID* I* X* NPARMS; 

O STACK(F+3) s ID 

STACK(F+4) = I 

STACKfF+5) 9 X 

O STACKCF+6) s NPARMS 



03990331 


T 


0125 


03990340 


T 


0125 


03990350 


T 


0128 


03990351 


T 


0128 


03990360 


T 


0128 


03990370 


T 


0130 


03990380 


T 


0131 


03990381 


T 


0131 


03990390 


T 


0131 


03990400 


T 


0133 


03990410 


T 


0133 


03990420 


T 


0133 


03990430 


T 


0135 


03990440 


T 


0136 


03990450 


T 


0138 


03990460 


T 


0139 


03990470 


T 


0139 


03990480 


T 


0139 


03990^90 


T 


0143 


03990500 


T 


0147 


03990510 


T 


0148 


03990520 


T 


0148 


03990530 


T 


0148 


03990535 


T 


0148 


03990540 


T 


0148 


03990542 


T 


0148 


03990545 


T 


0151 


03990550 


T 


0154 


03990555 


T 


0159 


03990560 


T 


0163 


03990565 


T 


0167 


03990566 


T 


0168 


03990800 


T 


0168 


START Of SEGMENT 


********** ii9 


119 IS 22 LONG* 


NEXT SEG 118 


03990810 


T 


0169 


03990815 


T 


0169 


03990820 


T 


0171 


118 IS 180 LONG* 


NEXT SEG 6 


03991000 


T 


0513 


03992000 


T 


0513 


03993000 


T 


0513 


START OF SEGMENT 


********** 120 



r 



■> — - 



C 

c 



c 



c 



STACKCF+7) = T 



REAL T; 03994000 T 0000 



LABEL FOUND* XITJ 03995000 T 0000 ^ 

IF DEBUrTOG THEN FLAGROUT INE( "LOOKFO". «R INTRN", TRUE ) J 03995010 T 0000 

LOOKfORiNTRINSIC * L * NEEDCID * GET C L+l ) »FUNI D) ; 03996000 T 0002 

O IF GFT(L+2) < THEN GO TO X|T» % PARAMETER INFO KNOWN 03996050 T 0005 <-> 

COMMfNT B MUST BE SET TO K/2, WhfRE K IS THE INDEX OF THE LAST 03996100 T 0007 

INTRtNStC NAME IN THE ARRAY TNTI 03996200 T 0007 

O A*0» B*NUMINTM1 ; ' 03997000 T 0007 C 

WHILE A+l < B DO 03998000 T 0009 



o 



r 



L. 



BFGIN 3999000 T 001 1 

^ I «■ REALCB00LEAN(a+B> AND B00LEANC1022)); 04000000 T 0011 O 

IF Z * INTCIJ r m THEN GO TO FOUND? 04001000 T 0013 

if id < z then b «. i,c36«in else a * i f t36imi 04002000 t 0015 

^ ENDJ 04003000 T 0022 ^ 

if id b inT[ i*(A+b)x?*i] Then go to found; 04004000 t 0022 

GO To X I T J 04005000 T 0026 

^ FOUND! 04006000 T 0026 ^ 

NPARMS«-CX«.INTU + 13),INTPARMSJ INT[I + 1],INTSEEN*1 i 04007000 T 0027 

lNFotL.IR»L«IC],SUBCUASS*X,INTCuASS ; 04008000 T 0032 

^ pUT(|.+2»-(lRNEXTEXTRACToADlNF03&NPARMS[TONEXTRA])); 04009000 T 0037 O 

IF NpARMS s THEN NPARMS * j| 04010000 T 0041 

T*X.INTPARMCLASS J 04011000 T 0043 ^ 

'^ FOR ? * I STEP 1 UNTIL NPARMS DO 04012000 T 0044 <J 

BEGIN 04013000 T 0045 

EXTRAlNFOtNEXTEXTRA.lRfNEXTEXTRA, IC] «• 04014000 T 0045 

O OR EXPCLASS[TOCLASS] & TCT0SUBCL3; 04015000 T 0047 O 

NfXTeXTRA * NEXTEXTRa + 1? 04016000 T 0050 

ENDJ 04017000 T 0051 

^ X I T I 04018000 T 0053 ^ 

IF DEBUnTOG THEN FLAGR0UTINE("L00KF0","RINTRN»»FALSE) J 04018010 T 0054 

END LOOKFORlNTRlNSic; 04019000 T 0056 

U 120 IS 62 LONG* NEXT SEG 6 O 

INTEGER PROCEDURE FXPR( VALREQ) » VALUE VALREQJ BOOLEAN VALREQJ 04020000 T 0513 

BEGIN LABEL LOOP, STACK, XtT, NOSCAN»* REAL TJ 04021000 T 0513 

O start Of segment ********** 121 O 

STACKfF+3) = T 

LABEl, ARRY; 04022000 T 0000 

^ LABEL HERE J 04022010 T 0000 O 

04023000 T 0000 

04024000 T 0000 _ 

U REAL SAVIT, SAVlp; 04025000 T 0000 O 
STACK(F+4) s SAVIT 
STACK(F+5) = SAVIP 

O BOOLEAN CNSTSEENLAST; SFOR HANDLING CONSTANT %113- 04025500 C 0000 O 
5TACKCF+6) a CNSTSEENLAST 

REAL SAVEADR; ^EXPONENTS %113- 04025600 C 0000 
O STACKfF+7) = SAVEADR 

DEFINE OPTYPE * LSTT#J ^ 04026000 T 0000 

REAL EXPRFSLT»FXPLNKJ 04027000 T 0000 
O STACKfFflO) = EXPRESLT 
STACK(F+11) = EXPLNK 

REAL EXPVJ 04028000 T 0000 



U STACK<F+12) = EXPV 



o 

o 



u 
O 

o 



Real tm ; 04028010 t 0000 

STACK(F+13) r TM 

U DEFtNf F0=FMjT0#» EP=EMITPAiR#, EOL=EMlTOPDCLlT#t 04028020 T 0000 O 

ESi(OP)sBEGlN E0CXCH)J EP{9,STD>; EOfOP) END #» 04028030 T 0000 

ESgsBEGTN EP(9,STD)J E0fXCH>J EP(17,SND); EO(MUL) END # J 04028040 T 0000 

O LABEL CTYP, DTYP* RlESSC* DtESSCt CLESSD» CLESSC, RPLUSD. DTlMESC, 04028050 T 0000 O 

CTimESR* CDlVBYDt CTlMESR^ CTImESR?, DLESSCi ; 04028060 T 0000 

LABEL SPECCHAR, RELATION! 04029000 T 0000 

^ REAL LINK; 04030000 T 0000 O 

STACKCF+14) = LINK 

DEFImE Tl = EXpTl#» T2 = EXPT2#» CODE s EXpT3#i 04031000 T 0000 

'*J COMMENT THE FOLLOWING TABLE GIVES THE PRECEDENCE CPREC) AND 04032000 T 0000 O 

OPERATOR NUMBER (OP) OF THE ARITHMETIC AND LOGICAL OPERATORS, 04033000 T 0000 



o 
O 



\_^ 



u 






o 

o 
o 

o 
o 
o 
o 

o 



PRT(720) a MATH 



OPERATOR 

** 

UNARY - 

/ 

* 

m 
+ 

,GE, 
tGT, 

,eQ. 

t LE i 

,LT, 
.NOT, 

• AND. 
,0R t 

THE UNARY PLUS 
PROCEDURE MATH(D» C» T); 



PREC 

9 

8 

7 

7 

5 

5 

4 

4 

4 
4 
4 
3 
2 
1 

is ignored; 
valuf d» c» 



op 

15 

12 

14 

13 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

t; Real d» c* t, 



04034000 T 



«■ Oj 

TO LOOP! 



STACK END, 



^-' 



O 



O 

o 

o 



BEGIN 

EMITO(MKS)! 
EMJTLCOI 

emltv(need(",math "♦ intrfun?d))j 
emitocdfd; 

IF D = 2 THEN EMlTOCDED; 

oPTYPEt iT*iT-n * t; 

FND MATh? 

nnew * name; 

TF DEBUrTOr THEN FL AGROUT I NEC " EXPRe'S "SS I ON »,TRUE ) 
OPTYPEfSAViT *IT * lT + 1] «• 
PR[SaV!P*iP»iP+U * 0PST[IP] 
IF GL08ALNEXT s PLUS THEN GO 
IF GLOBALNEXT r MINUS T H EN 
BEGIN PREC * 8? OP * 12; GO TO 
IF PREC > THEN GO TO STAC.K; 
LINK*CEXPLNK«-FNfXT)&REAL(ScANENTfR)[2J47»1] I 

r,o To noscan; 
loopi scan; 
link * fnext; 
noscan* 
cnstseenlasts^false; 

IF Gi.ORALNEXT s ID THEN 
BEGIN 

IF IP * SAVIP THEN EXpRESiJ «- EXpCUSS; 

0pTYPEClT«-lT+n * CA^GET(LINK)), SUBCLASS; 

scan; 

if not randomtog then 
if nfxtsequal then begin next*0; 0p«-6; 
if globalnext - id or globalnext = num 
. bfgin fl0g(1); go to xft end; 

IF NOT VALREQ AND PRFC > THfN VALRFQ 

IF GLOBALNEXT * LPARpN THfN 

BfGIN 

LINK + GETSPACECLlNK); 

T * CA*GETCLINK)). CLASS; 

IF XREF THEN ENTERXtGET(LINK+l )»0&Atl5>l5l9]); 

if expreslt * o Then expreslt * t; 



35113- 



PREC«-4 END 
THEN 

* true; 



04035000 
04036000 
04037000 
04038000 
04039000 
04040000 
04041000 
04042000 
04043000 
04044000 
04045000 
04046000 
04047000 
04048000 
04049000 
04050000 
04051000 

04052000 
04053000 
04054000 
04055000 
04056000 
04057000 
04058000 
04059000 
04060000 
04061000 
04062000 
04063000 
04064000 
04065000 
04066000 
04067000 
04068000 
04069000 
04070000 
04071000 
04072000 
04072500 
04073000 
04074000 
04074100 
04075000 
04076000 
04076050 
04076100 
04077000 
04078000 
04078100 
04079000 
04080000 
04081000 
04082000 
04082100 
04083000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0001 
0003 
0003 
0005 
0008 
0010 
0010 

0012 
0014 
0019 
0020 
0021 
0026 
0027 
0029 
0030 
0030 
0031 
0032 
0032 
0033 
0034 
0036 
0039 
0040 
0041 
0045 
0047 
0048 
0051 

0052 
0052 
0054 
0056 
0060 



^ 



C 



c 

c 
c 
c 
c 
c 
c 



c 






c 



c 
c 
c 
o 
c 



^ 



o 
o 
c 
o 



IF 



VAL 
IF 



ELSE 
BEGIN 
IF 



req then 

T = VARlD 
BEGfN XTA 



THEN EMlTVfLlNK) FUSE 

* GET(LINK+1)J FUAGC50) END 



ELS 
BEG 



ARID THEN 

OBALNEXT > SLASH AND EXpRESLT ■ VARID THEN 

SCREQ * TRUE? EMITNCLINK); DESCREQ «• FALSE} 

TO xjt; 
LSE EMlTVfLlNK) 



U 
G 



T s V 
IF GL 
BEGIN 
DE 
GO 
END E 
E 

IN 

IF T * ARRAYID THEN 
BEGIN 

IF BOOLEAN(A.CE) THEN 

EMITNUM(RET(LINK+2),BASE) ELSE 
IF BOOLEANcA, FORMAL) THEN 
EMlTOPnCLlTCA.ADDR-1) ELSE 
EMITL(0)J 
TO ARRY? 
LSE EMlTPAlRCA.ADDR»LOD); 

xi t; 



O 



END 
END* 
GO TO 
EnDJ 

IF A.CLAS 

BEGIN COM 

EXpRES 

IF A.C 

8 

I 

S 

I 



GO 
END E 
GO TO 
J 



o 



■ \ 



o 

o 
o 



IF 



IF 



I 



IF 
EMI 



SPECCHARJ 

S * ARRAYID THEN 

MENT FUNCTION REFERENCE? 

LT » EXpCLASS; 

LASS s STMTFUNID THEN 

EGIN 

F XreF THEN ENTErX C GET ( Li NK+1 ) »0&A[ 15 J 15 J 9 ] ) ? 

tmtfunrefclink) j 

f next=equal then if not randomtog then 

begin next*oj 0p*6? prec*4 end ? 
TO specchar J 

ND-J 

A,CLASS = EXTlD OR GET(TM«-GL0BALSEARCHCGETCLINK + 1))). CLASS: 

XTIO THEN LINK^REALCDOITINLINEC-LINK)) ELSE 

a,class<funid and tm=0 then 

f doitinlinecltnk) Then go here else 

LINK * LOOKFORfNTRlNSIC(LlNK) ELSE 
LINK * NEEDCGET(LINK+1),FUNID)J 

XRFF THEN ENTFRXCGETCLlNK+n»0&GET(LlNK)U5tl5:9])> 
TO(MKS); 



HEREI 



PflRAMETERS(LlNK)? 

IF ERRORTOG THEN GO TO X IT ELSE SCAN? 

EMlTVfLlNK >? 

IF OPTYPEtlT] * GET(LlNK), SUBCLASS > DOUBTYPE THEN 

emitopdcliT(JUnk); 
IF next^equal then 

if not randomtog then begin next*0? prec*4? 0p*6 end ? 
end else 
begin comment array reference? 

if xref then enterxcgetc l i nk+ 1 ) » 0& ac 15 « 15 j 9] ) ? 



04084000 
04085000 

04086000 
04087000 
04088000 
04089000 
04090000 
04091000 
04092000 
04093000 
04094000 
04095000 
04096000 
04097000 
04098000 
04099000 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



00000 
01000 
02000 
03000 
04000 
05000 
06000 
07000 
08000 
09000 
10000 
11000 
12000 
12100 
13000 
14000 
14050 
14100 
14200 
14300 
14400 
14500 
14520 
14530 
15000 
15010 
16000 
17000 
17100 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
24100 
24200 
25000 
26000 
26100 
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0067 
0067 
0068 
0069 
0071 
0071 
0074 
0074 
0075 
0075 
0076 
0077 
0077 
0078 
0081 
0082 
0084 
0086 
0086 
0088 
0089 
0089 
0089 
0089 
0089 
0090 
0091 
0092 
0093 
0093 
0097 
0098 
0100 
0103 
0103 
0103 
0108 
0111 
0113 
0115 
0117 
0120 
0124 
0125 
0125 
0125 
0127 
0128 
0130 
0132 
0132 
0137 
0137 
0137 
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SCAN 
VALR 
IF E 
IF N 



o 
o 
o 



IF E 

fF N 

BFGI 

I 

B 



? 

EQ * SUBSCR 
RRORTOG THE 
F.XT = EQUAL T 
BEGIN NFXT 
XPRESLT a 
OT VALREQ T 
N 

F GLOBALNEXT > SLASH AND EXPRESLT b SUBSVAR THEN 
EGIN 
ARRY 
IF B< 
BEGT 
El 
T 
H 
Bl 



•■^j 



•u 



U 



o 



\^> 



^J 



o 



o 



o 



u 



E 
E 

END) 
ID ARR 

TO S 



E 

E 

END 

EMIT 

GO T 

no; 

F BOOL, 

EG IN 

SPLl 

IF A 

BEG! 

F 

F 

E 

E 

E 

E 

END 

ND ELS 

MITVCL 



J 

OOLEA 

N 

MITPA 

* A, 

F T < 

EGIN 

EMI 

EMI 

ND EL 

EGIN 

EMI 

EMI 

EMI 

nd; 

MITOC 
ELSE 
0(XCH 
X I T 



IPTS(LINK»RFAL(VALREQ>)J 

N GO TO XITJ 

HEN IF NOT RANDOMTOG THEN 

*0j 0P*6? PREC*4 END I 

THEN fXPRrSLT * SUBSVAR) 

HEN 



N(CA*GETCLINK)),TW0D> THEN 

iRfTWoDpRT, LOD); 
ADDRJ 

1023 then 



TLCT,[38H0])> 

TDESClITCIO)? 
SE 

TLCT,[40?8])? 

TDESCLITC1536)) 

TOCINX)? 

CTF); 
EMITPaIRCA,ADOR»LOD)? 

)? 



EAN((A*GET(LlNK)J f TWOD) THEN 



TCA.A 

,SUBC 

N 

MlT0( 

MlT0( 

MiTPA 

MITOC 

MITOC 

MITOC 

MITOC 

ELSE 

E 

INK)* 



DDR)? 

t-ASS > DOUBTYPE THEN 

CDC)? 
DUP)? 

iRn* xch)J 
INX); 

LOD)? 
XCH)? 
LOD)? 
EMITO(CoC)? 



AY REFERENCE? 
PECCHAR? 



EN 

GO 
END) 

IF GLOBALNEXT * NUM THEN 
BEGIN 

If 



STRINGTYPE 
THEN 



NUMTYPE » 

IF VALRFQ 

BEGIN 

NUMTYPE*-INTYPE ? 

IF STRINGSIZE=1 ThEN 

FLSE BEGIN 



then 



FNEXT*STRINGARRAY[OJ 



on 
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69000 
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70000 
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[71000 
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173000 


T 


01 
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74000 
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041 


75000 
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01 
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77000 
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[77200 
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L 

r , IF STRlN6SlZr>2 OR STR I NgARRA Y [ 1 ] . [ 1 8 J 30 ] *" " THEN 

^ FLA6<162) ; 6417-7600 T 0{97 C 

IF <FNEXT*STRlNGARRAYrl],[t2l6J&STRlNGARRAYr0]C6ll2l36J> 

, [6?6]>7 then numtype«.realtype ; 
^' end ; 

endj 

SAVEADRlsADRf CNSTSEENLAST ? =TRUE J SU3- 

IF NUMTYPE * DOUBTYPE ThEn 04179000 T 0?05 C 

EMITNUM2CFNEXT.DBL0W) else emitnum cfnext); 
OpTYPEC IT*IT + J 1 <• NUMTYPE) 
'^ IF EXPRESLT * THEN 04182000 T 0?13 <~ 

Begin expreslt «• numclass; expv «- fnext end? 
scan; 

U IF NOT RANDOMTOG THEN 04184050 T 0216 C 

if next=equal then BEGIN NEXT«-0) 0P*6; PREC*4 end I 
IF NOT VALREQ AND PRfC > THfN VALReQ * TRUE? 

IF GLOBALNEXT » ID OR GLObALNfXT a NUM THEN 04185000 T 0224 

BEGIN FLOfi(l); GO TO XfT END) 

endj . , t „, „„„ 

U SPECCHAR! 04188000 T 0??7 C 

IF GLOBALNEXT = LPAReN THEN 
•^ BEGIN 

^ ScANJ 04191000 T 0229 O 

OPTYPEt|T*rT+i] «• EXPRfTRUE)? 

C IF GLOBALNEXT - COMMA AnD EXPrESULT = NUMCLASS THEN 04194000 T 0232 O 

BEGIN 

IF OPTYPECIT] > REALTYPE THEN FlAG(85); 
l - SCANJ 

IF EXPR(TRUE) > REAlTYPE 
,-, OR EXPRESULT * NUMCLASS THEN FLAGC85)? 

^ EMIT0CXCH3? 

OPTYPEfIT] * COMPTYPEJ 

IF EXPRESLT a THEN EXpRESLT * NUMCLASS; 
^ END ELSE EXPRESLT «• EXPCLASS; 04202000 T 0245 O 

IF GLOBALNEXT * RPAReN THEN 

,-. bfgin flog(iob); go to xit end; 

^ go TO LOOP} 

end; 

WHILf PRUPJ ^ PREC DO 
'■^j B E r I N 

if it < savit then go to XiT? 

code «• map[tl*0ptypet it-1]]x3 + map[ t2*0ptypeci t ] ] ; 

O CASE OPSTflP] Of 

BEGIN 
PRTC721) a *CASF STATeMfNT DESCRIPTOR* 
^ 60 TO XT Tl 

BEGIN 

IF Tl = L0GTYPE AND T2 = LOGTyPE THEN EMjTO(LOR) 
^ ELSE FLAGC51 ); 

IT «- IT-1J 

end; 

^-' BEGIN 

IF Tl = LOGTYPE AND T2 m LOGTYPE THEN EMlTOCLND) 
^ ELSE FLAGC52); 

^ IT * IT- i; 

end; 
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n 



IF T? = LOGTYPE THEN EMlTOfLNG) ELSE FLAGC53)J 04223000 T 0270 

^ BEGIN T * LESS* GO TO RELATION END? 04224000 T 0274 ^ 

BEGIN T - LEQLJ GO TO RELATION END? 04225000 T 0276 

BEGIN T * FQULJ GO TO RELATION END? • 04226000 T 0277 

•O BEGIN T * GRTRJ GO TO RELATION ENDJ 04227000 T 0279 

BEGIN T *• GEQLJ GO TO RELATION END; 04228000 T 0281 

BEGIN T * NEQL; 04229000 T 0283 

O RfLATiON: 04230000 T 0283 ^ 

IF CODE < THEN FLAr,e54) ELSf 04231000 T 0284 

CASE CODE OF 04232000 T 0286 

^ BfGIN J 04233000 T 0286 C 
PRTf722) 9 *CAS£ STATeMfNT DESCRIPTOR* 

BEGIN 04234000 T 0287 _ 

^ EO(ChS); EP(9.STD)J EOCXCH); E0L(9>J EO(XCH)J EP(O.XCh) J 04235000 T 0287 ,; - 

F0(AD2) t 04236000 T 0292 

,,-> EnDI 04238000 T 0293 ~. 

^ FLAG(90)J 04239000 T 0293 '- 

BEGIN EMITPAIR(0» XCH)J EMlT0(SB2) ENDJ 04240000 T 0294 

.-, EMIT0(SB2)J 04241000 T 0297 n 

^ FLAGC90); 04242000 T 0298 ^ 

FLAG(90); 04243000 T 0299 

FLAG(90)J 04244000 T 0300 

^ IF T* EQUL AND T* NEQL THEN FLAGC54) *103- 04245000 P 0302 ^ 

ELSE £103- 04245100 C 0304 

BEGIN S103- 04245200 C 0305 _ 

'O EPC9.STD); EO(XCH)J E0LC9H EO(T)J X103- 04245300 C 0305 U 

EP(9,STD >J E0(T)J E0L(9)J 25103- 04245400 C 0308 

T*C!F T^eQUL THEN LND fLSE LOR); cODE*0} 35103- 04245500 c 0311 

C END) 35103- 04245600 C 0314 C 

END RFLATION CASE STATEMENTS 04246000 T 0315 



start of segment ********** 122 



r> 
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122 IS 10 LONGt NEXT SEG 121 O 

IF CODE > THEN 04247000 T 0315 

BfGTN EMITOCXCH); EMiTOfDFDJ EMJTL(O) END? 04248000 T 0316 ^ 

^ EMlTOcT)* 04249000 T 0319 ^ 

opTYPEnT*iT-n * logtype; 04250000 t 0320 

ENDJ 04251000 T 0322 

^ IF CODE < THEN BEGIN FLAGC55)? IT «■ IT-1 END ELSE 04252000 T 0322 ( - 

CASE CODE OF 04253000 T 0326 

BEGIN 04254000 T 0326 

u prtc723) a *case statement descriptor* 

begin 04255000 t 0327 

emito(add)? 04256000 t 0327 

U IF Tl = INTYPE AND T2 » INTYPE THEN IT * IT-1 ELSE 04257000 T 0328 ^ 

OPTYPEC IT-IT-1 3 <■ REALTYPEJ 04258000 T 0331 

ENDJ 04259000 T 0334 

'«J BfGIN TM+AD2 t' 04260000 T 0334 C 

RPLUSd» EPC9.STD); EOCXCH)J fOL(9); EO(XcH)) EPCO»XCH)J EO(TM) ; 04260010 T 0335 

DTYPJ OPTYPEtlT*lT-M*DOUBTYPE J 04260020 T 0341 

O END J 04260030 T 0343 C 

BfGIN TM*ADDJ GO RLESSC END J 04261000 T 0343 

^ BfGIN 04262000 T 0345 _ 

O EM?TPArR(0, XCH>J 04263000 T 0345 O 

EMlT0fAD2)J 04264000 T 0346 

IT * |T-1) 04265000 T 0347 

O ENDJ 04266000 T 0348 O 

BfGTN EMIT0CAD2)? IT «• |T-1 ENDJ 04267000 T 0349 



o 

c 



u 



Bfgtn tm*add> go dlessc fno * 

BFGfN EMITOCADD)? IT * jT-i END; 

bfgjn tm*add; go clessd end ; 

bfgin tm*add; go clessc end ; 

END ADD CASE STaTEmEnJI 



o 



THEN 
OF 



PRTC724) s *CASE 



o 



eocchsjj 
tm*sub ; 

GO 



o 



TM*AD2J 

dlessci 

XCH>* 



Q 

o 
o 
o 
o 

o 

O 
O 
O 



IF CnDE < 
CASE CODE 
BEGIN 
STATEMFNT DESCRIPTOR* 
BFGIN 

FMITOCSUB)? 
IF Tl = INTYPE AND 
OPTYPEtlTMT-13 
END1 

Bfgin 

bfgin 

rlfssci esktm)} 

FND J 

bfgin 

FMlTPAlRCOt 

eMiT0(SB2); 

' IT «• IT-IJ 

END) 

bfgin emitocsb2)* 
begin tm*sub ; 
dlessci est(tm)j e0(xch)j 

DLESSCit EOLC95I IF Tm~SUB 

End i 

bfgin emitocsub); it 

bfgin tm*sub ; 

CLESSDi EOCXCH)) E0(DEL>? EO(Tm) 
CTYP« 0PTYPE[IT«-IT*1]*C0MPTYPE 
END J 

bfgin tm*sub ; 

CLESSC* ESKTM); r,Q CTI M ESR1 J 

END ; 
END SUBTRACT CASE STATEMENT? 



BEGIN FbAG(55)J IT * lT-1 END ELSE 



04268000 
04969000 
04270000 
04271000 
04272000 
START OF SEGMENT 
123 IS 10 LONG* 
04273000 T 



04274000 
04275000 



0351 
0353 
0355 
0357 
0359 

********** 

NEXT SEG 
0360 



c 



123 
121 



c 



0363 
0364 



T2 s INTYPE 

*• Rfaltypej 



then it * i t- i else 



fiO RPLUSD END 1 



IT *■ t T-i ENDJ 



EO(DEL) J 
THEN EOCCHS)* 

«• IT-1 ENDJ 



GO CTIMESR2 J 



% HANDLE 
-EXPV I 



NEGATIVE NUMBFRS CASE STATEMENT 



04276000 
04277000 
04278000 
04279000 
04280000 
04281000 

04282000 
04282010 
04282030 
04283000 
04284000 
04285000 
04286000 
04287000 
04288000 
04289000 
04289005 
04289007 
04289010 
04290000 
04291000 
04291010 
04291015 
04291020 
04292000 
04292010 
04292020 
04293000 
START Of SEGMENT 
124 IS 10 LONG. 



REALTYPE THEN EMtTOCCHS) ELSE 

logType then flagcsS) else 
doubtype then emitocchS) else 
comptype then 



PRTC725) = *CASE 



BEGIN 

expv; 

TF T? 
IF T ? 
IF T? 
IF T? 

BEGIw 

EmITocchsj; emito(Xch); 

EmITO(CHS); EMlTO(XCH)J 
END FLSE FLAGC55)? 
END nF NEG NUMBERS CASE STATEMENT 

if code < o then begin flagcss); 
case code of 

BEGIN 

statemfnt descriptor* 
bfgin 



IT 



* IT-1 END ELSE 



04293100 
04293200 
04294000 
04295000 
04296000 
04297000 
04298000 
04299000 
04300000 
04301000 
04301100 
04302000 
04303000 
04304000 



0364 
0364 
0365 
0369 
0371 
0372 
0374 
0375 
0379 
0379 
0379 
0380 
0381 
0382 
0383 
0385 
0386 
0391 
0394 
0394 
0397 
0398 
0400 
0403 
0403 
0404 
0408 
0408 
********** 

NEXT SEG 
0409 
0409 
0410 
0412 
0415 
0417 
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0419 
0420 
0422 
0423 
0424 
0427 
0428 



c 

c 
c 
c 



124 
121 



c 

c 
c 
c 
c 

c 



^ 



04305000 T 0428 



c 
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emito(mul)} 
^ if tl - intype and t2 = intype then it «• it-1 else 04307000 t 0429 <~ 

optypet it*it-1 j * realtypej 
end; 

^ BpGlN TM«-ML2; GO RPLUSD END J 

BrGlN ES2J GO DTlMESc END ; 
_, BfGIN 

^ EM|TPAlR(Of XCH)J 04313000 T 044? ( — 

EMiT0(ML2); 

jt * iT-l; 

'O end; 

bfgtn emiT0(ml2); it * rT-i end; 

BfGIN ES2J EO(XCH)* EQ(DEL> * 
U DTiMESCJ E0LC9)* E0L(l7)» EOcmUl>* GO CTYP t 04318010 T 0453 <~ 

End ; 

begin tm*mul ; 

U CTlMESRj EPC9»SND)| EO(TM) ; 

CTlMESRi JEO(XCH); E0LC9)* EO(TM) J 
,CTlMESR?IEO(XCH)l GO CTYP ; ___ 

O EnD j 04-H9040 t 0464 C 

bfgin tm*mulj go cdivbyo end ; 

mathc2. 26, c0mptype)j ..„...--- , _.._„ 

^ end multiply case statement* 04322000 t 0468 c 

start of sfgment ********** 125 

_ 125 is 10 long. next seg 121 

^ if code < then begin flagc55); it * it-1 end else 04323000 t 0469 ( - 

case code of 

-v, BEGIN U>f.5l!3UUU [ U1IJ _ 

vJ PRT(726) = *CASE STATeMfNT DESCRIPTOR* C 

it t! a intype and t2 = intype then 

begin emitoc tdvj; it * jt-i end else .._.-.. ..... 

O BfGIN EMITOcdiU)? OPTYPfC ! TMT-1J * REALTYPE END; 04328000 T 0478 C 

BfGIN 

EPf9,STD)> EP(J7»STd>; EPfO#XcH)J E0LC17)* E0L(9)J E0(DV2) I 
O GO DTYP ; 043?90?0 T 0487 CJ 

End ; 

MATH(1» ?9# COMPTYPE)? ..„„_, ,_., 

O begin 04331000 t 0490 C 

EMITPAIRCO* XCH); 

EMlT0fDV2)i -.„.,_-..... 

'^) IT * IT-U 04334000 T 0491 C 

end i 

begin emitocdv?); IT «- iT-l END? 

O MATH(2* 32* C0MPTYPE5J 

BfGIN TM*DIU; GO CTIMESR END { 

BFGIN TM*D!U i . ._ , 

O cdivbyd? eocxch); eocdel); go ctimesR i 04339010 t 0500 C 

end ; 

M A THC2» 35, comptyPe); ^hw,^ , VJWJ 

<J END OF DIVIDE CASE STATEMENT; nzi*/iinrm t n*n* C 

O TF CODE < THEN BEGIN FLAG(55)J IT * IT-1 END ELSE * * 04342000^1- 0506 **" **** C 

BEGIN 
IF CODE = AND T2 = INTYPf AND ,..,.,,„„„ , WiVlw 

O cnstseenlast then *ii3- 04345000 p 0511 O 

begin 
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NEXT SEG 121 
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NEXT SEG 121 
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IF Ti b JNTYpE AMD T? = InTYpe THEN IT «• IT-1 ELSE 
O OPTYPEC IT*IT-H * REALTYPE? 

EXpV»=LlNK? 

As=i? adrj=saveadr; 
^ while expv div 2 * Do 

BEGIN 

EMITO(DUP); 
O IF BOOLEAN(EXPV) THEN BEGIN A*A+1? EMITOCDUP) END; 

EMIT0CMUU3I 

EXPV *■ EXpV DIV 2? 

^ END J 

IF EXPV - THEN BEGiN FMlTO(nEL)? E^lTLCl) END ELSE 

while a * am * do emitocmul)? 

; - ! END FLSE 

BEGIN 

EMITO(MKS)? 

w' 1 EMITL(CODE)? 

EMITVCNEED«".XT0! "• INTRfUNid))? 
CASE CODE OF 
^ BpGlN 

PRT(727) = *CASF STATEMpNT DESCRIPTOR* 

BFRIN EMlTO(DEL)? OPtYPEC I T* I T-l 3* 1 F (TlsfNTYPE AND T2=jNT 
<-> THEN JNTYPE ELSE REALTYPE END? 

BFGIN EMIT0(DEL3* OPTYpE 1 1 T>I T-l ] * DOUBTYPE END? 
BEGIN EMITO(DEL>? OPTYpEC I T«- 1 T-l ]*COMPTYPE END ? 

O BEGIN emitocdel)? it «• IT-1 end? 

BEGIN EMIT0CDEL5J EMlToCDEL,)? IT * IT-1 END? 

BEGIN EMITOCDEL)? EMlToCDEL)? OPTYpEt I T*I T-1J+COMPTYPE END 
O BEGIN EMITO(DEL); IT «• IT-j END? 

BEGIN EMITO(DEL)? EMlToCDEL)? IT * IT-1 END? 

BEGIN EMITOCDEL)? EMlToCDEL)? 1T*IT*1 END ? 
O END OF POWER CASE STATEMENT? 



^-' END? 

FND? 



vj 



END? 



IP * TP-1? 
O END? 

EXPRfSLT * EXPCLASS? 

STACK? 
O PR[|P*iP + n *• PREC? 

OPSTfiPJ * opi 

O IF PREC > AND PREC * 4 ThEN 

BEGIN 

Scan? link «■ fnext? 
O if next = plus then go to'loop? 

IF NEXT * MINUS THEN GO TO NOSCAN? 
PREC ♦• 8? OP * 12? 
O GO TO STACK? 

END? 

GO TO LOOP? 
U XIT? IF IP * SAVIP THEN FL0GC56); 

IP * SAVIP-1? 

,~1 



) 



04347000 


T 


0512 


^ 


04348000 


T 


0516 


U 


*113- 04349000 


P 


0519 




%113- 04350000 


P 


0519 




04351000 


T 


0521 


; -J 


04352000 


T 


0523 




04353000 


T 


0523 


/""**■% 


04354000 


T 


0524 


(J 


04355000 


T 


0527 




04356000 


T 


0528 


o 


04357000 


T 


0529 


04358000 


T 


0529 




04359000 


T 


0532 


o 


04360000 


T 


0536 


04361000 


T 


0536 




04362000 


T 


0537 




04363000 


T 


0537 


o 


04364000 


T 


0538 




04365000 


T 


0540 




04366000 


T 


0540 


o 


YPE) 04367000 


T 


0540 


o 


04367500 


T 


0544 


04368000 


T 


0547 




04369000 


T 


0550 


^•--s, 


04370000 


T 


0554 


o 


04371000 


T 


0556 




? 04372000 


T 


0560 


o 


04373000 


T 


0564 


04374000 


T 


0566 




04375000 


T 


0570 


o 


04376000 


T 


0573 


START OF SEGMENT 


********** 127 




127 IS 10 LONG* 


NEXT SEG 121 


, — •, 


04377000 


T 


0573 


o 


04378000 


T 


0573 




04379000 


T 


0574 


s~\ 


START Of SEGMENT 


********** 128 


u 


128 IS 17 LONG, 


NEXT SEG 121 




04380000 


T 


0575 


/ — •, 


04381000 


T 


0576 


o 


04381100 


T 


0578 




04382000 


T 


0578 


f~~~\ 


04383000 


T 


0579 


o 


04384000 


T 


0581 




04385000 


T 


0582 




04386000 


T 


0582 


u 


04387000 


T 


0584 




04388000 


T 


0584 




04389000 


T 


0586 


o 


04390000 


T 


0587 




04391000 


T 


0588 


o 


04392000 


T 


0590 


04393000 


T 


0590 




04394000 


T 


0590 


■"*"\ 


04395000 


T 


0591 


o 


04396000 


T 


0593 


o 

c 



.-; E* p * - OPTYPEtlTll 04197000 T 0594 

IF OPTYPEIIT-U * THEN FL0r,<56)( 04396000 T 0595 C 

o ^ r E jT %b ESLT ' s:2sssss ? mi 

^ttXV^Ki, S25S4SSS ? o6„o c 

IF OEBUrTOg THF.N FL AGROUT INEC « EXPRe m ."SSiON », FALSE) ? 04403000 T 0601 

fNd EXPRJ 04404000 T 0603 C 

DDn „ ,,„ ,., „. 121 IS 610 LONGt NEXT SEG 6 

r\ PROCFOURE FAULT (X)J 04404050 t nm ^ 

O PRTf730) 9 F AULT 04404050 T 0513 



^ BEGfN REAL LINK' LABEL XIT? 



Rpa" E v?* 04404100 T 0513 

£r*.\. »r. , B r. 04404l?5 T 0513 



04404150 T 0513 



O EMlTPAjRf 5. KOM)? 



PUTtFNEXT+l. ». »>? 04* 3000 T 



0013 



O 



L 



STACK(F+2> a LINK START ° F SEGMENT ********** 129 

U SCAN; IF GLOBALNEXT * LPAREN THEN BEGIN FLAGC106)J GO XIT END; 04404200 T 0000 C 

SCAN? IF GLOBALNEXT i ID THEN BEGIN FLAG(66>? GO To XIT END? 04404250 T 0003 

IP X B 1 ™EN PDPRTCO»0] * PDPRTC0.03 & 1C44U7HJ ELSE 04404275 T 0006 

^ PDPRTtOfO] + PDPRT [0*0] & 1[43 J47.U? 04404300 T 0011 C 

EMIT0P0CL1TC4D? EMlTOCDUP)? 04404325 T 0015 

q IF X n 1 THEN BEGIN EMITLC2)? EMITO(XCH)? EMITLCi) END 04404350 T 0017 

rurrn/iMn,. E L S£ E M I TL C 6 ) ? 04404375 T 0020 C 

tr ! J - 5 rirM P y IT , M „ 04404425 T 0022 

O rMiJo^Ualf EMlTl *< 3) > 04404435 T 0022 

fr 1 ! i 5 B rirM 04404450 T 0024 C 

If- a - «i IHFN 04404475 T 0025 

BEGIN EMITOCDUP)? fMiTLC3)? EMlTO(SSN) ? EMI T0( EQUL) ? EMITLC2) 04404500 T 0026 

^ t JEMITOCBFC) ? EMlT0(DEL)?EMiTL(2}? 04404525 T 0030 C 

E 0' 04404550 T 0032 

r , LINK * GET(GETSPACE(FNFXT))? EMI TPA I RC L I NK. ADDR. I SD) ? 04404570 T 0032 

O TF X a 1 THEN E MlTLf30) ELSE EMITLC25)? 04404600 T 0036 C 

FMlTOfLNO)? EMiTLf41)?FMlT0CSTD); 04404625 T 

~ SCAN? IF GLOBALNEXT f RPAReN THEN FLAG(lOB)? 04404650 T 

U XtT SCAN} 04404660 T „„„ 

fin p.,,, T . 04404675 T 0044 

_. lnu MULi' 04404700 T 0045 

DB .. Pnllhr CUODrr! 129 IS 48 LONG, NEXT SEG 6 O 

PROCEDURE SUBRFF? ntLhnKnnn t nso 

PRT(731) = SUBREF 04405000 T 0513 

° BEGIN RFAL LINK,INFC? 04406000 T 0513 O 

STACKfF+2) * LINK - START 0F SegmEnT ********** 130 

O STACKcF+3) s INFC q 

REAL ACCIDENT? 04/iOAnm t nnnn 

STACKfF+4) * ACCIDENT 04406010 i 0000 

^ LABfL XJT? 

IF DEBUrTOG THEN FLAGROUT 1 NEC « SU B ","REF »,TRUE ) ? 04406025 T 

-, fE TSSEnlTOG THEN IF NAME=»ZIP » AND NOT DCINPUT THEN TSSEDC NAME , 3) ? 04406030 T 0002 

RPr nf = " EX,T " HEN 04407000 T 0006 O 

RrTURNFOUhin TRUr • 04408000 T 0007 

O rr.T. i?i * 04408100 T 0008 

fm TPA R 16 STnu 04409000 T 0009 O 

EMITPAIRC 16. STD)? 04410000 T 0010 



0039 

0041 
04404660 T 0044 O 



04406020 T 0000 O 

0000 



04412000 T 0012 O 



O 



l ) 



w 



v_y 



u 



U 
O 

c 

G 
C 

— i, 

o 

o 






o 

o 

O 

o 
o 

o 



Scan 

END FLS 
BEGIN 

emit 
emit 
emit 

emit 

IF ADR 
ACCJ 

emit 
emit 

LtST 

if g 
Scan 

LtND 
IF G 
L?ND 
IF T 

IF X 

emit 

IF B 
B 

I 

E 
E|.SE 

Emit 

BrAN 

emit 

EMIT 

emit 

EMIT 

EMIT 
EMIT 
END EL 
ELSp I 
ELSf 
BEGIN 
LINK * 

IF XREF 
FMiTotM 
SCAN; 
IE GLOB 

BfGT 
T 

PUT( 
IF I MFC 

BEG! 
EMITVCL 



F IF NAME="ZIP " AND NOT DCINPUT THEN 



OCMKS 
LCO)? 
PAIRC 
BC-1» 
> 40 
DENT* 
OPDCL 
OCGFW 
ART * 
LOBAL 
? IF 
X * F 

LOBAL 
X * G 
*f LIN 

REF T 
PAIRC 

OOLEA 

FGIN 
F T *• 
LSE E 
EMIT 
LCLIN 
CHLIT 
OCRTS 
LCD* 
DESCL 
PAIRC 
LC6)? 
VCNEE 
SE IF 
F NAM 



); 

EMITLCO) 
-1#SSN)? 
FALSE)? L 
85 THEN B 
PRGDESCBL 
ITC I 95 ; 
)? 

ADR&NSEG 
NEXT*LPAR 
GLOBALNEX 
NEXT? SCA 
NEXT#RPAR 

ETSPACECL 
FA*GETCLI 
BEGIN F 
HEN ENTER 
LADDR*LIN 
NCLINFA.F 



? % DUMMY FILE AND FORMAT 

ADR1*LAX> ADJUST? DESCREQ*FALSE? 
EGIN ADR*ADR+1? SEGQVF END? 
DRtO»Of ADR,r36$10]+i,NSEG)? 



[TOSEfiNOl? ADJUSTJSCANJ 

en thfn begin flagcl06)?g0 to'xlt end? 
t^td thfn begin flagc66>i go to xjt end? 
n? xta * getclindx + di 
en then begin flagm08)? go to xit end? 

INDX)? 

NDX))*.CLASS?sARRAYlD THFN 
LAGC66>? GO TO X IT END? 
X(XTA,0&LINFAn5»i5»9j}? 
FA.ADDR.LOD)? 
ORmAL) THEN 



GETCLINDX + 2X0 THEN EMIT0PDCLIT(T,SIZE) 
MITnUM(T.SIZE)? EMITqPDCLITCLADDR-1)? EMITOCCTF) end 
NUM(GET(lINDX+?),BASENSIZE)? EMITLC18)? EMITOCSTD)?? 
FA,CLASNSUB&0U4l47lil)> EMITLC19)? EMITOCSTD)? 
CLISTART,TRUE)? EMITl(19)? EMITOCSTD)? 
)? ADJUST? 

EMITO(CHS)? EMITLC19)? EMITOCSTD)? 
ITC19)? EMITO(RTS)? FIXBCLADRl)? DESCREQ«-FALSE? 
ACCIDENT*L0D)? EM I TOPDCL I TC 7 ) ? EMITOCFTF)? 

% EDITCODE 6 FOR ZIP 
DC.FTOUrMNTRFUNlD))? SCAN 

name * "overfl" then faultc2) 
e 9 "dvchk » then faultcd 



NEEDCNAMf, SUBRID)? 

THEN ENTERX(XTA,0&fiET(LlNK)tl5H5l5j)l 
KS)? 

ALNEXT n LPAREN THEN 

n paRameteRsclink)? scan fnd else 

F NOT BOOLEANCCINFC*GETCL|NK+2)),ri8l3) 

LINK+2*-lNFC) ELSE 

.NEXTRA # THEN 

N XTA * GETCLINK+1)? FLAGC28) END? 

INK)? 



THEN 



END? 
XlTi 
IF DEBUfiTOG THEN FLAGROUT I NEC « SUB W » W REF "»FALSE) ? 
END SUBREF? 

PROCEDURE DECLAREPARMSCFNEW)? VALUE FNEW? REAL FNEW? 



130 IS 



044 
044 

044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
04 4 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 

044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
044 
13 
044 



14000 
15000 

15010 

15011 

15020 

15021 

15030 

15040 

15050 

15070 

15080 

15090 

15100 

15110 

15120 

15130 

15140 

15150 

15160 

15165 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240 

15250 

15260 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

16000 

17000 

17100 

18000 

19000 

20000 

21000 

22000 

23000 

24000 

25000 

26000 

26500 

26700 

27000 

27010 

27025 

28000 

3 LONG* 

29000 T 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0015 
0015 

0023 
0023 
0024 
0025 
0027 
0030 
0033 
0036 
0037 
0037 
0040 
0045 
0048 

0051 

0053 
0054 
0057 
0059 
0062 
0064 
0064 
0065 
0068 
0073 
0077 
0081 
0083 
0084 
0087 
0090 
0093 
0094 
0095 
0099 
0103 
0104 
0106 
0107 
0110 
0111 
0112 

0112 
0114 
0117 
0119 
0121 
0124 
0125 
0125 
0125 
0125 
0126 
0128 
NEXT SEG 
0513 



o 
o 
o 
c 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



c 



r 



PRT(732) a OECUREPARMS 

u BEGIN 04430000 T 0513 ^ 

REAL I, T, NLABFLS, JNFA. |NfB» iNFC* 04431000 T 0513 

START OF SEGMENT ********** 131 
^ STACKrF+2) a I C 

STACKfF+3) = T 
STACKfF+4) = NLABELS 
U STACKfF+5) = iNFA 

STACKfF+6) a INFB 
STACKrF+7) = INFC 

O IF DEBUrToG THEN FlAGR0UTInE("DECLAR«»»EPARmS»»»TRUE ) J 04431010 T 0000 C 

INFA «• GET(FnEW)? 04432000 T 0002 

IF InFA, SEGNO * THEN BEGIN XTA * NNEWJ FLAGC25) END; 04433000 T 0003 

O INFA. SEGNO * NSEG; PUTCFnEW* 1 NFA ) ; 04434000 T 0006 *- 

ENTRYLlNKtELX] «- & FNEW[ TOL I NK ] & NEXTSS[ TOADOR 3 ; 04435000 T 0009 

FOR I * 1 STEP 1 UNTIL. PARMS DO 04436000 T 0012 

^ BEGIN 04437000 T 0016 ( - 

EXTRaINFOCNEXTSS,IR>NEXTSS,IC] * PARMLINKC I ] I 04438000 T 0016 

NEXTSS * NEXTSSMJ 04439000 T 0019 _ 

^ IF T * PARMLINKtll * THEN 04440000 T 0020 C 

BFGIN 04441000 T 0022 

GFTALLCTf iNFAtlNFB* INFC)? 04442000 T 0022 

^ IF BOOLEANCINFA .FORMAL) THEN 04443000 T 0024 ( - 

BFGIN 04443100 T 0024 

IF INFA. SEGNO = ELX THEN 04444000 T 0025 

^' BEGIN XTA * INFB i FLAGC26) END; 04445000 T 0026 

END ELSE IF (INFA < AND TNFA.ADDR < 1024) OR BOOLEAN C I NFA « CE ) 04445100 T 0028 

THEN BEGIN XTa * TNFB? FLAGC107) END; 04445200 T 0031 

^' INFA * INFA & 1CT0FORMALJ & ELX£ TOSEGNO 3 t 04446000 T 0034 ^ 

INFC .BASE «• i; 04447000 T 0037 

PUTCT.INFA)J PUT(T+2.INFC)J 04448000 T 0038 

'^ END ELSE NLABELS * NLABELS+U 04449000 T 0040 C 

END? 04450000 T 0044 

IF N|. ABELS > THEN 04451000 T 0046 ^ 

U BEGIN EnTRYLINKTELX ], CLASS * NLABELS? 04452000 T 0047 ' C 

IF LABELM0M=0 THEN BEGIN BUMPLOCALSj LABELM0M*LOC ALS+1 536 ENDJ 04453000 T 0050 

END? 04454000 T 0056 

'•J GETA|,LCFNEW.INFA»lNFBi INFC); 04455000 T 0056 C 

IF BoOLEAN(INFC.Clill) THEN 04456000 T 0058 

BEGIN 04457000 T 0058 

O IF INFC.NEXTRA # PARMS THEN 04458000 T 0059 C 

BEGIN XTA * INFB; FL0GC41JI 04459000 T 0060 

PARMS * INFC.NfXTRAJ 04460000 T 0062 

O END? 04461000 T 0063 C 

T «- INFC.ADINFO; 04462000 T 0063 

-, FOR 1*1 STEP 1 UNTIL PARMS DO 04463000 T 0065 - 

U IF NOTCPARMLINKCI] = E&V 04464000 T 0067 ^ 

EXTRAINFO[(T+I-l)IlR*(T+I-l).IC]. CLASS = LABELID) THEN 04465000 T 0068 

BEGIN IF PARMLlNKri] * THEN XTA * ** " 04466000 T 0073 

^ ELSE XTA * GETCPARMLINKH J+l); 04467000 T 0076 O 

FLAG(40); 04468000 T 0080 

END? 04469000 T 0080 _, 

^ END 04470000 T 0083 ^ 

ELSF 04471000 T 0083 

,-, BfGIN 04472000 T 0083 

o T f paRms s o then infc *■ -infc else 04473000 t 0083 U 

INFC * -C INFC & PARMS[T0NEXTRA] 04474000 T 0085 



O 



o 



^.. 



u 



.-, & NEXTEXTRA[T0ADINF03)* 04/175000 T 0087 

O PUT(FNEW+?,INFC)? 04476000 T 0069 C> 

FOR I * 1 STEP 1 UNTIL PARmS DO 04477000 T 0090 

BFGIN 04478000 T 009? 

^ EXTRAlNFOtNEXTEXTRA, IR#nEXTEXTRA.!C3 * & 04479000 T 0092 ^ 

CIF PARMUNKH] = THEN LABELID El.SE 0) CT0CUASS3 J 04480000 T 0094 

NEXTEXTRA <- NEXTEXTRA+l; 04481000 T 0098 

'^ END* 04482000 T 0099 C 

END) 04483000 T OlOl 

IF ELX * ELX+1 > MAXEU THEN BEGIN FLAGC128); ELX ♦ END; 04484000 T 0101 

O TF DEBUnTOG THEN FL AGROUT I NEC"DECLAR"» "EPaRMS", FALSE ) I 04484010 T 0105 O 

FND DECLAREPARMS; 04485000 T 0107 

131 IS 113 LONG,. NEXT SEG 6 ^ 

^ PROCEDURE TOLlSTfLEVEDJ REAL LEVEL; 04486000 T 0513 ^ 

PRT<733) * TOLlST 

BEGIN ALPHA LADR2.T; 04487000 T 0513 

'^ START OF SFGMENT ********** 132 ^J 

STACKfF+2) s LADR2 
STACKfF+3) = T 
O' BOOLEAN AJ 04487050 T 0000 O 

STACKfF+4) s A 

INTEGER INDX, i.BDLlNKtNSUBS; 04487100 T 0000 

O STACKfF+5) = INDX O 

STACKfF+6) = I 
STACKCF+7) a BDLINK 
O STACKCF+105 «* NSUBS O 

LABEL ROUND »X I T, ERROR » LOOP* SCrAM ; 
INTEGER STREAM PROCEDURE CnTNAMC I DEN ) ; VALUE IDEN; ..-,„__. . .__. 

O PRTC734) * CNTNAM O 

BEGIN LABEL XlTj 

SI J= LOC IDEN; SI ; = SI + 3> TALLY 8s i; - --,-,„„„„„ , „„„„ 

O Sf IF SC s " " THEN JUMP OUT TO XIT;SJ 5= Sl + UTALLY Is TALLY+l)! 04488400 T 0000 O 

XITJ CNTNAM J = TALLY; 



END CNTNAM; 



IF DEBUrTOg THEN FLAGROUT I NE( w I0L"»"IST %TRUE ) ; 

w» round; dfscreo * true; 

L0CALNAME 8 = FALSE; 
IF gLOBaLNfXT a SEMI THE N GO TO XIT; ,.,,„_ , „.,,,, 

<-> if guobalnfxt * star then 04493100 t 0010 o 

begtn if not namedesc then 

TV t= ENTER(0&LiSTSlDrTOCLASS],LlSTiD;=LlSTiD+l); -,.,._. , ._ 

U LOCALNAME J* TRUE; NAMfDESC is TRUE? SCAN; 04493300 T 00l7 O 

END; 

IF GLOBALNEXT * ID THEN _.,.,„_„ , „ Wfcl 

u begin lindx * fnext; 04*95000 t 0071 o 

Scan; xta * geT(lindx+i>; 

IF GLOBALNEXT = EQUAL ThEn XRETURN TO CALLER 
>~ ! BFGIN IF CLlNFA*GET(GETSPACE(LlNDX)}), CLASS * VARID THEN FLAG(50); 04498000 T 0026 ^ 

SCRAMJ IF CLEVEL * LEVEL-1) < THEN FL0GC97); 
GO TO X I T; 

O end; 



IF DATASTMTFLAG AND SPLlNK * THEN XDECLARE OWN 
^ BFGIN 

IF BOOLeAN(GET(LINdX),fORMaL) THEN FIAGC147); 



u 





04488000 


T 


0000 




04488100 


T 


0000 




04488200 


T 


0000 




04488300 


T 


0000 


ALLY + DI 


04488400 


T 


0000 




04488500 


T 


0002 




04488600 


T 


0003 




04489000 


T 


0004 




04490000 


T 


0004 




04491000 


T 


0004 




04492000 


T 


0007 




04492100 


T 


0007 




04493000 


T 


0009 




04493100 


T 


0010 




04493150 


T 


oon 




04493200 


T 


0013 




04493300 


T 


0017 




04493350 


T 


00?l 




04494000 


T 


0021 




04495000 


T 


0021 




04496000 


T 


0023 




04497000 


T 


0025 


flag(50); 


04498000 


T 


0026 




04498100 


T 


0030 




04498200 


T 


0034 




04499000 


T 


0037 




04500000 


T 


0037 




04500100 


T 


0037 




04500200 


T 


0038 




04500300 


T 


0039 



o 

o 



o 
o 
o 

c 



' ) 



r~ 



O 



L 



u e 

IF SPLiNKM THEN 04500310 T 0041 

O IF GFTCLINDX).ADDR>1023 THEN FUAGC 1 74)> 04500320 T 0042 ^ 

LTNDX * GFTSPACE(-LINDX)! 04500400 T 0046 

IF BOOLEAN(GETaiNDX).eQ) THEN FLAG(168)I 04500420 T 0047 _ 

■J END FLSE LlNDX «• GETSPAcEf LI NdX ) ; 04500500 T 0050 C 

IF T * (LlNFA«-GETflINDX)). , CUASS > VaRtD THEN FLAGC50); 04500600 T 0051 

IF XREF THEN ENTERXCXTA,C?&LlNFArl5Jt5S9]); 04500655 T 0055 

^ IF GLOBALNAME OR LOCALNAME THEN 04500700 T 0058 ( ~ 

IF NAMEINDJ* NAMElND+l GTR LSTMAX THEN FL0GC161 ) 04500725 T 0060 

E|,SE NAMLIST[NAMEIND] != XTA & CnTnAMC XTA ) t 9 i 45 » 3 3 J 04500750 T 0063 

O IF T s ARRAYID THEN 04501000 T 0067 ^ 

IF GLOBALNEXT t LPAREn THEN 04502000 T 0068 

BEGIN IF SpUNK * t ThEn 04503000 T 0069 

BEGIN 04503004 T 0070 ^~ 

EMITL(0)J 04503008 T 0071 

EMITPAIR(LAD0R * LINFAiADDR#L0D)J 04503010 T 0072 

^ EMITO(FTC)! 04503020 T 0074 ( - 

EMITDESCLIT(2)J 04503030 T 0074 

EMITO(INX); 04503040 T 0075 ~ 

^ EMIToaOP)? 04503050 T 0076 ^ 

END ELSE EMITPAIR(UA0DR*LINFA,ADDR*L0D)S 04503055 T 0077 

NSUBS !* (T t= GET ( L INqX+2 ) ) , NEXTRA; 04503100 T 0079 

^ IF GLOBALNAME OR LOcALNaME THEN 04503125 T 0082 ^ 

BEGIN 04503150 T 0084 

IF NSUBS GTR SAVESUBS THFN SAVESUBS I* NSUBS* 04503160 T 0084 

IF NSUBS GTR NAMLlSTfO] THEN NAMLlST[0] *= NSUBS; 04503170 T 0086 { - 

NAMLlSTrNAMElND]![l»83 t s NSUBS; 04503175 T 0089 

JNDX ?= -i; 04503180 T 0091 

O INFA Ip GETfNEED(».SUBAR t »iBLOcKTD)).ADDR* 04503190 T 0092 C 

BDLlNK $ = T,ADlNF0+!* 04503200 T 0095 

END; 04503225 T 0097 

O IF BOOLEAN ( L I NFAl FORMAL ) THEN 04504000 T 0097 C 

BEGIN 04505000 T 0097 

IF T LSS THFN EMI TOPDCL I T ( T ,SI ZE ) 04505200 T 0098 

O ELSE EMITnUm(T,SIZE); 04506000 T 0099 

EMlTOPDCLlTfLADDR - i); 04507000 T 0104 

EMITO(CTF); 04508000 T 0105 _ 

o END ELSE EMITNUMCT.BASENSIZE); 04509000 T 0106 C 

IF GLOBALNAME OR LOcALNAME THEN 04509050 T 0108 

FOR I t = 1 STEP 1 UNTIL NSUBS DO 04509100 T 0109 _ 

O BEGIN IF T J= EXTRAINF0CCBDLINK!=BDLINK-1),IR» 04509150 T 0111 C 

BDLINK.IC] LSS THEN EMI TOPDCL I TC T ) 04509200 T 0113 

ELSE EMITNUMCT); 04509250 T 01 16 

O FMITNUMCINDX 1= INDX+1); 04509300 T 0117 - 

EMITDESCLTT(INFA); , 04509350 T 0119 

EMIT0(STD)J 04509400 T 0120 

^ END? 04509450 T 0121 C 

EMITLC185; EMiTO(STD); 04510000 T 0123 

FNn ELSE 04511000 T 0124 

O BEGIN SCANS 04512000 T 0124 C 

A *(IF GLOBALNAMF OR LOCALNAME 04513000 T 0125 

THEN SUbsCRiPTS(LtNdX»4) rLSE SUBSCR I PTS ( LI NnX # 2 ) ) ; 04513100 T 0126 

O SCAN; 04514000 T 0131 C 

END 04515000 T 0131 

FLSF EMlTN(LTNDX); 04516000 T 0131 

O IF GLOBALNAME OR LOCALNAME THEN 04516100 T 0132 C 

BfGIN EMIT0PDCLITH8); EM I TNUmCNAMEI ND) > 04516200 T 0134 
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EMITD(43»DI 
EMITLC18); 
EmDJ 

EmIT|.(LINFA,CLASN 
EMITLC20); EMITO 
IF ADR > 4083 THEN 
BEGIN ADR*ADR+ 
BRANCHLlTCLISTART 
EMITLH9); EMITO 
EMITO(RTS); ADJUS 
GO TO LOOP; 
END? 

IF GLOBaLNfXT « LPAREN 
BEGIN EMlTB(-ltFAUSE)> 
AnJUST? 

LaDR2 * (ADR •* 1) 
SrANj LEVEL * LE 
lOLlSTCLEVEL); 
Ir GLOBALNEXT * E 
BrGTN BRANCHESfT 
BRANCHX * T 
IF GLOBALNE 
SCAN? GO T 
EnDJ 

IF XREF THEN ENTE 
IF LINFA, SUBCLASS 
BFGIN XTA * GETCL 

FLA6C84)! 
END* 

EMITB(-1»FALSE); 
LADR3 * LAX; 
FfXBCLADR2,ADDR)J 
DFSCREQ * FALSE? 

scan; if exprctr 

EMITN(LlNDX); 

emitb(ladr2»false 

if globalnext * c 

adjust; 

ladr4 *• cadr + 1) 

scan; if exprctr 

EMlTRfLADR2.TRUE) 
EMlTBf-l»FALSE)> 
LADR5 «• LAX; 
FTXBfLADR3)? 

if globalnext * c 
ei.se begin scan; 

EmITV(LINDX); EM 
EmITNCLINDX); 
EMlTBCLADR4»FALSE 
FfXB(LADR5); 
IF GLOBALNEXT = R 
LOOP? TF GLOBALNEXT a 
IF GLOBALNEXT 
IF GLOBALNE 
BEGIN SCAN; 
IF GL 
GO TO 



a); emltdc3»0ib)j emitd(15»trb); 
emitocstd); 

SUBR0C44I47M 1 ) ? 
(STD); 

u segovf end ; 
•true); 

(STD)J 

t; 



THEN 



% RECURSE ON ( 



SLAXCTOADDRj&NSEGtTOSEGNO]; 
VEL + il 

QUal Then % phony imp do 
«- ladr2.addr] * branchx! 
; 

XT / RpAREN THEN GO TO ERROR? 
LOOP? 

RX(GET(LINDX+l),18LlNFAtl5«l5 59]); 

> REAlTYPE THEN 
INDX + n; 



UE) > REALTYPE THEN FLAG(102); % INITIAL VALUE 

EMlTO(STD); 
)? 

omma Then go to error; 
&nsfgct0segn03i 

UE) > REALTYPE THEN FLAGC102) ELSE EMITO(rRTR)) 



omma then emitl,ci) 

if exprctrue) > realtype then flagc102); end; 

iTocadd); 

EMIToCSND); 
)i 

PAREN THFN SCAN ELSE GO TO ERROR; 

SEMj OR GLOBALNEXT =? SLASH THEN GO TO XjT; 

3 RPAREN THEN GO TO SCRAM; 
XT s COMMA THEN 

OBALNEXT s SfMI THEN GO TO ERROR; 

Round; 



04516300 
04516350 
04516400 
04517000 
04518000 
04518100 
04518200 
04519000 
04520000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 
04527000 
04528000 
04529000 
04530000 
04531000 
04532000 
04533000 
04534000 
04535000 
04535500 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
04544000 
04545000 
04546000 
04547000 
04548000 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04555000 
04556000 
04557000 
04558000 
04559000 
04560000 
04561000 
04562000 
04563000 
04564000 
04565000 
04566000 
04567000 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



136 
139 

141 
141 
143 
144 
145 
147 
148 
150 
151 
153 
153 
153 
155 
156 
159 
161 
162 
163 
165 
166 
167 
168 
168 
172 
173 
176 
176 
176 
178 
178 
180 
180 
183 
185 
186 
187 
188 
190 
194 
195 
196 
197 
198 
199 



c 



0203 
0205 
0206 
0207 
0208 
0210 
0213 
0214 
0215 
0216 
0217 



o 



c 

c 
c 
c 
o 
c 

Q 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



ENOJ 04568000 T 0218 

•~> FRRORJ XTA * NAME; 04569000 T 0218 ^ 

FLAGC94); 04570000 T 0219 

TF GLOBALNEXT = SEMj ThEN GO TO X I T ? 04571000 T 0220 ~ 

^ SCAN; 04572000 T 0221 O 

tF GLOBALNEXT = ID THEN fiO TO ROUND? 04573000 T 0222 

fRRORTOB * TRUE' GO TO XjH 04574000 T 0223 

^' FNDJ 04575000 T 0224 ^ 

IF GLOBALNFXT = RPAREN THEN GO TO ScRAM ELSf 04576000 T 0224 

IF GLOBALNEXT * SLASH THEN GO TO fRROR* 04577000 T 0225 _ 

O XITI IF DEBUGTOG THEN FLAGROUT I NEC " 1 L •* . »* I S T ".FALSE) J 04578000 T 0227 ( ~ 

END IOLISTJ 04579000 T 0230 

13? IS 236 LONG. NEXT SEG 6 

U INTEGER PROCEDURE F I LECHECkCFI LENAME »F I LETYpE ) J 04580000 T 0513 ^ 
PRTC7155 s FII FCHECK 

_ ... VAlUE filename. filetype? alpha filename; integer filetype; 04581000 t 0513 _ 

U begin comment this procedure rfturns the prt cell allocated to 04582000 t 0513 L. 

THE FILF FILENAME,.. A CELL IS CREATED IF NONE EXISTS; 04583000 T 0513 

IF DEBUfiTOG THEN FLAGROUT I NEC » FlLEC M »"HECK ".TRUE ) I 04583010 T 0513 _ 

O EMITLCIF NOTOPIO THEN 2 ELSE 5)J * FOR 10 DESCRIPTOR 04584000 T 0516 <J 

IF T «• RLOBALSEARCHCFILENAME) b ThEN % FILE UNDECLARED 04585000 T 0518 

BEGIN MAXFILES * MAXFILES + U 04586000 T 0520 

^ BUMPPRTj 04586500 T 0522 ^ 

I «• GLOpALFNTERC-0&CFlLECHECK*PRTS)rTOADDR] 04587000 T 0526 

SFILElDrTOcLASS], FILENAME)*?? 04588000 T 0528 _ 

^ INfOCI.tR.I.ICI. LINK «• FILETYPE? 04589000 T 0530 C - 

END ELSf % FILE ALREADY EXISTS 04590000 T 0535 

FILECHECK * GETCT),ADDR? 04591000 T 0535 ^ 

^ IF DEBUGTOG THEN FLAGROUTineC" FILEC"»"HECK », FALSE) i 04591010 T 0539 '^ 

END FILFCHECK; 04592000 T 0541 

^ PROCEDURE 1NLINEFILE; 04593000 T 0546 

U PRTf7^6) = INLINEFILE 

begin Comment this procedure generates the code to bring up the file... 04594000 t 0546 

if the file is an integer then fi l echec« is called, if the file 04595000 t 0546 

O is not an integer then in-line code is generated for object time 04596000 t 0546 O 

ANALYSIS; 04597000 T 0546 

REAL TEST; 04598000 T 0546 

STACKCF+2) = TEST 

COMMENT IF LAST INSTRUCTION WAS A LU CALL THEN WE HAVE SEEN REFERENCE 04599000 T 0000 

O TO AN INTEGER FILE ID; 04600000 T 0000 C 

IF DEBUfiTOG THEN FLAGROUT I NE C " I NLI N". "EFI LE ".TRUE ) ; 04600010 T 0000 

TEST«-ADR ; 04601000 T 0002 _ 

C IF EXPRfTRUE)>REALTYPE THEN FLAGC10?) 0460P000 T 0002 L, 

ELSE IF FXPRESULTsNUMCLASS THFN 04602500 T 0004 

_ BEGIN XTA^NNEW * 04603000 T 0008 

O IF EXPVALUE^l.0^5 OR EXPVAlUE<0,5 THEN FLAGC33) 04603500 T OOlO C 

ELSE BEGIN 04604000 T 0012 

IF ADR<TEST THEN X EXPR GOT SEGOVFL-- ASSUME NO WRAPAROUND 04604010 T 0016 

^ EMITOCDEL) 046040?0 T 0016 ^ 

ELSE ADR*-TEST; 04604025 T 0017 

TeST«.SPCLBIN2DECCC1*EXPVALUe); 04604030 T 0019 

O IF XREF THEN ENTERXCTeST&HTOCEI.O&fiLEIDCTOCLASS]) ; 04604040 T 0021 ^ 

EMITDESCLIT(FILEChECK(0&»,"[12U?I634TESTC1BI12I30]. 04604050 T 0025 

IF DCINPUT THEN 1? ELSE 2)) t 04604060 T 0028 

'■J end ; 04604070 t 0031 ^ 

END ELSE 04604080 T 0031 



"U 
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START OF SEGMENT ********** 133 O 



c 



c 



u 



COMMENT NOT INTEGER FILE.,, GENERATE OBJECT TIME CODE* 04605000 T 0031 

BEGIN EMITPAIRC17>ISN) ? 04606000 T 0031 <- 

IF FILEARRAYPRT^O THEN BEGIN BUMPPRT; F I LEARRAYPRT-PRTS END? 04607000 T 0032 

EMITOPDCUIT(FILEARRAYPRT); 04608000 T 0038 

^ EMITO(DUP)? EMITLCO)* EMJTO(EQUL)J 04609000 T 0039 C 

COMMENT NEED 7 CONSECUTIVE SYLLABLES1 04610000 T 0041 

IF ADR 2 4082 THEN 04611000 T 0041 

^ BrGlN ADR * ADR + lj 04612000 T 0042 C 

SEGOVFI 04613000 T 0043 

,-. ENDI 04614000 T 0044 

^ EMITL(3 + FILEARRAYPRT.[38M3)J8!C0NSIDFR POSSIBLE XRT 04615000 T 0044 v_ 

FMITOCBFOJ % BRANCH AROUND TERMINATION CODF 04615100 T 0046 

EMITLCD* FMITO(CHS); EMj TOPDCLl T( FI LEARRAYPRT ) i % INV INDEX 04616000 T 0046 

^ EMITO(LOD)? EMITLCIF NOTOPlO THEN 2 ELSE 5); EMlTOfCDOJ 04617000 T 0049 C 

END? ,. 04618000 T 0053 

TF DEBU r ,TOfi THEN FLAGROUTinE(« TNLIN m ,"EFILE ". FALSE) * 04618010 T 0053 

w ' END INLtNEFILE? 04619000 T 0055 C 

133 IS 61 LONG. NEXT SEG 6 

PROCEDURE FILECONTROL(N)? VALUE N* REAL N» 046l90l0 T 0546 

'--' PRT(737) = FILECONTROL " C 

BEGIN COMMENT COMPILES ALL CALLS ON ALGOL FILE CONTROL* 04619020 T 0546 

E0DS*TRUE ; 04619025 T 0546 

EXECUTABLE ! 046l90?7 T 0547 C 

SCAN} EMITOCMKS); 04619030 T 0548 

EMITL(N); EMITLCO)! 04619040 T 0549 

\ NOTOPIO * TRUE; 04619050 T 0551 C 

INLINEFILE i 04619060 T 0552 

-, EMITLC4JJ EMITOPDCLIT(H); 04619070 T 0553 

^ NOTOPIO * FALSE' 04619080 T 0554 O 

END FILfCONTROL? 04619090 T 0556 

PROCEDURE FORMATERJ 04620000 T 0556 

O PRTC740) = fORMaTER O 

BEGIN 04621000 T 0556 

COMMENT FORMATER COMPILES A PSFUDO cODE USED BY THE OBJFCT TlMr 04621500 T 0556 

U FORMATING ROUTINES TO PRODUCE DESIRED I/O. USUALLY. THERE TS 04622000 T 0556 O 

ONE WORD OF PSeUdO CODE PRODUCED FOR EACH EDITING PHRASEi IN 04622500 T 0556 

ADDITION ONE WORD JS PRODUCED FOR EACH RIGHT PARENTHESIS AND 04623000 T 0556 

^ SLASH GROUP, 04623500 T 0556 C 

THE 47TH BIT OF THE FIRST WORO IS SET IF THERE ARE LIST 04624000 T 0556 

^ ELEMENT PhRASES IN ThE FORMAT STATEMENT, 04624500 T 0556 

^ there are four groups of phrases? 04625000 t 0556 O 

GROUP 1 a F. E» D. G s REPEAT WIDTH DECIMAL 04625500 T 0556 

GROUP 2 " I* J» A, 0. L» T, C. = REPEAT WIDTH 04626000 T 0556 

^ „ .. *» P 04626100 T 0556 O 

GROUP 3 « H = REPEAT SPECIAL PURPOSE 04626500 T 0556 

GROUP 4 - )» / «s CONTROL REPEAT LINK 04627000 T 0556 

u w ORD FOR GROUP 1i 04627500 T 0556 O 

CODE = C II 5 3 04628000 T 0556 

REPEAT 9 l 6:i2] 04628500 T 0556 

^ WIDTH * C 181 123 04629000 T 0556 O 

DEDIMAL - C30:i2] 04629500 T 0556 

WORD FOR GROUP 2! 04630000 T 0556 ^ 

^' CODE - C 1* 5] 04630500 T 0556 U 

REPEAT - [ 6M2] 04631000 T 0556 

WIDTH = C18I121 04631500 T 0556 

^ SIGN = [4ll l] 04631600 T 0556 O 

FOR P. X AND T REPEAT = 1 04631625 T 0556 



O 



O 

o 



c 



,""-> 
w 



u C 

PI SIGN a SIGN OF SCALE 04631650 T 0556 

WORD FOR GROUP 3 J 04632000 T 0556 ^ 

CODE - C 11 5] 04632500 T 0556 

Repeat = t 61123 04633000 t 0556 

^ HI STRING STARTS AT BtT 18 A Nd CONTINUES TO END OF STRING 04635500 T 0556 L 

RfPFAT = NUMreR OF STRING CHARACTERS 04635600 T 0556 

WORD FOR r.ROUP 41 04636000 T 0556 

^ CODE = t 1« 5] 04636500 T 0556 '- 

Repeat * [ 6» 123 04637000 t 0556 

LINK * Ci8?i2] 04637500 T 0556 

^ DECIMAL s [30112] 04638000 T 0556 ^ 

CNTROL = 1 47? 1] 04638500 T 0556 

)! LINK NUMBER OF WORD - 1 BACK TO 1ST PHRASE AFTER 04639000 T 0556 

'-' LEFT PAREN 04639500 T 0556 <«-< 

REPEAT s REPEAT OF ASSOCIATED LEFT PAREN 04639600 T 0556 

OUTER MOST RtGHT PAREN 04640000 T 0556 

'"-' A, DECIMAL * 04640500 T 0556 ( ~ 

B, LINKS TO LEFT PAREN OF LAST PREVIOUS RIGHT PAREN 04641000 T 0556 

fy Repeat = number of slashes. 0464isoo t 0556 

^ I 04642000 T 0556 

DEFINE APHASE s 6 *« 04642500 T 0556 

-. start of segment ********** 134 

^ vphrase = 30 #, 04642510 t 0000 — 

LPPhRASe s 29 #» 04642520 T 0000 

CPHASE = 15 t, 04642600 T 0000 

DPHASE = 14 #« 04643000 T 0000 C 

EPHASE = 13 *, 04643500 T 0000 

FPHASE = 12 *» 04644000 T 0000 

U GPHASE - 11 #t 04644500 T 0000 

HPHASE = 2 *, 04645000 T 0000 

IPHASE s 10 t, 04645500 T 0000 

^ JPHASE e 9 #» 04646000 T 0000 

LPHASE - 8 #» 04646500 T 0000 

OPHASE a 7 #i 04647000 T 0000 

O PPHASE = 3 #» 04647500 T 0000 

TPHASE » 5 #• 04648000 T 0000 

XPHASE = 4 #x 04648500 T 0000 

'^ RTPARN = #» 04649000 T 0000 C 

SLASH = 1 #» 04649500 T 0000 

TOCODE = 11431 5 #, 04650000 T 0000 

<J TOREPFAT = 6:36512 *, 04650500 T 0000 C 

TOWIDTH t 18 J 36s 12 #, 04651000 T 0000 

_ TOLINK r 18? 36i 12 #. 04651500 T 0000 

O TODECIMAL = 30136: 12 #. 04652000 T 0000 C 

TOCNTRL «b 47l47l 1 #, 04652500 T 0000 

TONUM v. 42843! 5 #, 04653000 T 0000 _, 

O TOSIGN = 41l47l 1 1, 04653500 T 0000 G 

WSA - LSTT #j 04654000 T 0000 

REAL J» TJ 04655000 T 0000 

U STACK(F+2) = J 

STACKCF+3) = T 

LABFL KK»SLtFL I 04655100 T 0000 

O FORMAT FM(//"PHRASF# CODE REPfAT WIDTH DEC I MaL". X2. 04655400 T 0000 O 

START Of SFfiMENT ********** 135 
PRTf741) = FM 

O w .[4tM3 ;t^2»4] It42l5] .[44M] . 1451 1 ]"»X2t 04655410 T 0000 O 

".[46113, ,t46l?] ,t47li]"/) ; 04655420 T 0000 
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INTEGER D.I. CODE. REPEAT. W I DTH, DEC I MAL» TOTAL. SLCNT . SAVLASTLP. 
STACKfF+4) = D 
STACK(F+5) a I 
STACK(F+6) a CODE 
STACK(F+7) a REPEAT 
STACKfF+10) a WIDTH 
STACKf F + 1X 3 = DECIMAL 
STACKfF+12) a TOTAL 
STACK(F+13) a SLCNT 
STACKfF+14) a SAVLASTLP 

PARENCT.SAVTOTAL* 
STACKfF+15) a PARENCT 
STACK(F+16) = SAVTOTAL 

BOOLEAN VRB.ASK J 
STACKfF+17) = VRB 
STACKrF+20) = ASK 

BOOLFAN LISTEL* HF. ZF. QF. Pf. MINUSP, FIELD. STRINGFJ 
STACKfF+21) = LlSTEL 
STACK(F+22) = HF 
STACKCF+23) a ZF 
STACKCF+24) = QF 
STACKCF+25) = PF 
STACK(F+26) = MlNUSp 
STACKCF+27) = FIELD 
STACKfF+30) a STRlNGF 

BOOLEAN COMMAS* DOLLARS. PLUSp. STR; 
STACK(F+31) ~ COMMAS 
STACK(F+32) = DOLLARS 
STACKcF+33) a PLUSP 
STACK(F+34) = STR 

LABEL ROUND. NOPLACE » NUM. NUL. LP. RP.ENDER»NOEND» FALL. SEMI C»NUL1 J 

LABEL NfWWD. ROUNDU 

ALPHA STREAM PROCEDURE GETCHAR( NCRV, T)J VALUE NCRVJ 
PRT(7fl2) a fiETCHAR 

BEGIN S T - NCRVJ DT * T| DT * Dl+7; DS - CHRJ GETCHAR «• Sp 

FND GETrHARJ 

BOOLEAN PROCEDURE CONTINUE; 
PRT(743) a cONTtNUE 

BEGIN 

LABEL LOOP) 

BOOLEAN STREAM PROCEDURE ConTincCD); 

prtc7445 = contin 

begin si*cdj if sc * "c" then if sc * »s" then begin si*si+5j 
if sc f •• " then if sc * "0" then begin tall.ym » 
contin + tally end end 
end of continj 

boolfan stream procedure comntccd.t)? value t; 
prtc745) » comnt 

begin label, l; 

si*cn; IF SC a "C" THEN begin T(Sl*Sl+ll IF SCa"-" THEN 
TALLY*! ELSE JUMP OUT TO L)> TALLY«-1* L» END* COMNT*T ALLY J 

END COMK'TJ 

BOOLEAN STREAM PROCEDURE DCCONT I N( CD ) i 
PRTC746) a nCCONTlN 

BEGIN St*CDi IF SC a »-" THEN TaLLY * H DCCONT I N*T ALLY I 
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IS 29 LONG. NEXT SEG 
04655500 T 0000 
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04656000 T 0000 



04656100 T 0000 



04656500 T 0000 



04656600 T 0000 



04657000 T 0000 

04657100 T 0000 

04657500 T 0000 

04658000 T 0000 

04658500 T OOOl 

04659000 T 0002 



04659500 
04660000 

START OF SEGMENT 
04660500 

04661000 
04661500 
04662000 
04662500 
04663000 

04663500 
04664000 
04664500 
04665000 
04665500 



T 0002 

T 0002 

********** 

T 0000 



0000 
0002 
0004 
0005 

0006 

0006 
0006 
0009 
0011 
0012 



04666000 T 0012 
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END DCCONTTNJ 

LOOPI if NOTf CONTINUE * 

IF DCINPUT AND NOT 
IF NfXTCARD<4 



u 



'■^J 



n 



^ 



ELSE IF N£XTCARD=7 

ELSE IF NEXTCARD<4 ThEn 

ELSE IF NEXTCARD=7 

THEN IF(IF NEXTCARD < 4 

C0MNT(CB»DCINPUT 

ELSE IF NEXTCARD 

COMNTCDB»DCINpUT 

ELSE 

BEGIN 

IF READACARD 
GO TO LOOP; 
ENDJ 

end continue; 



TSSfDITOG OR fRfeftog THEN 
Then dccontinccb) 

THEM DCCONTlNfDB) ELSE 

contjn(cb) 

then contincdb) else 

then 

and not tsseditog or 

- 7 THEN 

AND NOT TSSEDITOG OR FREEFTOG) 



CONTlNf TB) 
CONTIN(TB)) 
FREEFTOG) 



COMNTCTB.O) AND NEXTCARD*6) THEN 

THEN IF LISTOG THEN PRINTCARD; 



VALUE NcRV; 



l ^ 



O 



u 



STREAM PROCEDURE STORECHAR( ARY* POS IT* CHAR H VALUE POSIT? 
PRTC747) * STORECHAR 

BEGIN St *CHAR$ Si * SI + 7} 

Dt «- ARY? DI «• DI + POSiTj 

DS * CHR> 

FNd storecharj 

alpha stream procedure backncr c ncRv ) ; 
prt(750) = backncr 

BEGIN S|«-NCRV; Si «. Si-U BACkNCR * S I I END BACKNCR? 
COMMENT ******** START OF CODE **************; 
IF XTA ; LABL = BLANKS THEN FlAGCIS) ELSE 
D* SfARCH(LABL) = THEN 

D* EmTERCO & FORMATlDtT CLASS3» LABL) ELSE 
IF GET(D), CLASS * FORMATID THEN BEGIN D*o; FLAGC 143 ) 
XREF THEN ENTERX (LABL* HFOrMAT ID [TQCLASS] ) ; 
* BLANKS; 
• BACKNCRCNCR); 
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IF 



end; 



O 

o 






u 



IF 

LABL 

NCR « 

WSAtO] * TOTAL * 1? 

ROUND1S XTA * BLANKS; 

ROUND: NCR *- GETCHARCNCR»T)J 

IP T a »]« THE N GO TO NOPLACE'* 
XTA «■ T R XTAC 121 I83 30 ] I 
T*!F CT=» M &" OR Ts"<») aNd 

CH0LT0G OR NOTCHF OR STRINGF)) THEN "+" ELSE 
IF CT="@ M OR Ts"j") AND (HOLTOG OR NOT HF) THEN ""» 

ELS F t ; 
IF NOT (HF OR STRINGF) ThEN 
IF T s " " THEN GO' TO ROUND 
FLSE IF T<=%" THEN GO SL ; 
IF HF THEN 
BEGIN 

STORECHAR C WSA C TOTAL 3. I »T) I 

IF HF * RFPEAT «• RfPfAT «• 1 * THF N 

IF I * 1+1 = 8 THEN 

BEGIN IF TOTAL * TOTAL +1 > LSTMAX THEN GO TO NUL? 

WSA[TOTAL] * I * 0; GO TO ROUND; 
END ELSE GO TO ROUnD ELSE GO To NULl > 

fnd; 
if not stringf then 



04666500 T 
04667000 T 
04667500 T 
04667600 T 
04668000 T 
04668500 T 
04668600 T 
04669000 T 
04669500 T 
04670000 T 
04670100 T 
04670500 T 
04671000 T 
04671500 T 
04672000 T 
04672500 T 
04673000 T 
59 LONG* 
04673500 T 

04674000 T 
04674500 T 
04675000 T 
04675500 T 
04676000 T 



04676500 

04677000 

04677500 

04678000 

04678500 

04679000 

04679400 

04679500 

04680000 

04680500 

04680700 

04681000 

04681002 

04681004 

04681010 

04681020 

04681030 

04681060 

04681100 

04681120 

04681140 

04683000 

04683500 

04684000 

04684500 

04685000 

04685500 

04686000 

04686500 

04687500 

04687510 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0014 
0015 
0016 
0019 
0021 
0026 
0030 

0035 
0038 
0041 
0044 
0048 
0052 
0053 
0055 
0056 
0056 
NEXT SEG 
0002 

0002 
0003 
0004 
0004 
0004 

0004 

0006 

0006 

0009 

0011 

0014 

0019 

0021 

0022 

0024 

0026 

0026 

0029 

0030 

0032 

0033 

0037 

0041 

0042 

0043 

0045 

0046 

0047 

0047 
0049 

0051 
0053 
0056 
0058 
0058 
0058 
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c 

c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
o 
o 
o 
o 
o 
o 
o 
o 



I ) 



IF 
IF T 

El.SF 

BfGIN 



S|,CNT > 
tf / •• 



■J 



■-J 



o 



v^> 






o 

O 
O 

o 



o 



u 



PRT(751) = 



CASE T 
BEGIN 
♦CASE STATeMfNT 
BEfitN 
NUM: 



fl* 



wsat 

IF N 

IF R 

WS 



COM 
GO T 

END* 
tF NOT Qf 
BFGIN IF 
NCR * 
SAVTOT 
WSAfTO 
GO TO 
END EL S E 
BEGIN 
WSACS 

IF 
CODE 
GO TO 

end; 
if string 

BEGIN 
STOREC 
J «• J 

IF I * 
BFGIN 

IF TOT 
T «- WS 

end; 

GO 
END? 
OF 



THEN 
THEN BEGJ 

TOTAL] «- 
OT STR THE 
EPFAT < 16 
ACT0TAL*T0 

& 
MAS«-DOLLAR 
NULU 

Then if t 

CODE > 4 
BACKNCRCN 
AL «- TOTAL 
TAL3 * & 

round; 



N Sl,CnT * SLCNT + D 

& SLCNTCTOREPEAT] 
N 

AND WSAtTOTAL-13. 
TAL-lJ * WSACTOTAL 
H46M7I1]! 
S*B00LEAN(SLCNT*-0) 



go to round; end 
& slashctocode]; 

[42»63 s THEN 
3 & SLCNTt42i44i4] 

; ncr«-backncrcncR) ; 



= »"»♦ THEN IF STR 
THEN BEGIN STRlNGF 
CR); GO TO ENDER F 
; J*Oj 1*31 QF * T 

hPhase[Tocode]; 



ingf *■ not strlngf then 
* false; 
nd; 
rue; 



AVTOTAL3 * 
I s THEN 
«• HPHASEJ 

ender; 

F THEN 

HARCWSAtTO 
+ i; QF «• 
1+1 = 8 T 

AL «• TOTAL 
AtTOTAL] * 



to round; 



WSACSAVToTALJ & J 
TOTAL * TOTAL - 1 



CToREPEAT]; 

; 



TAL3» I»T) j 

FALSE; 

HEN 

+1 > LSTMAX THEN 

o; 



go to nul; 



DFSCR 
ZF * 
DECIM 
IF AS 

BE 
DO 
UN 
NC 

EN 
ELSE 
IF DE 
IF CO 
ELSE 



iptor* 

true; 

AL * 10 x DECIMAL + Tj 
K THEN 
GIN FLAGU 
BEGIN NCR 
TIL T#"*» 
R*BACKNCR( 
D 



83) ; 

«.GETChAR(NCR»T); X 
AND T>9 AnD T*" " 

NCR); xta*blanks& 



% 



TA*UXTAU2»1B»30] END 

; 

XTAC18J12530] ; 



xiii- 



u 

o 

o 

o 



:CIMAL>4090 

IDE «» THE 
IF PF THEN 
VPHRASE 

GO TO round; 



THEN BEGIN FLAGC172); DECIMAL+1 END ; 
N REPFAT * DECIMAL 
BEGIN IF DECIMAL> 
THEN FLAGC129) EN 



WIDTH AND WIDTH*0 AND CODE?* 
D ELSE WIDTH«-DECIMAL ; 



ENn; 

GO TO 
GO TO 
GO TO 

; ; ; 



num; 

NUMf 

NUMJ 

; ; ; 



GO 
GO 
GO 



to num; 
to num; 
to num; 



go 

GO 
GO 



to num; 
to 'num; 
to num; 



% 1 2 3 

2 4 5 6 

% 7 8 9 

Z # 9 Q J > > 



04687520 T 
04687530 T 

04687550 T 
04687560 T 
04687580 T 
04687590 T 
04687600 T 
04687620 T 
04687650 T 
04687655 T 
04687660 T 
04688000 T 
04688500 T 
04689000 T 
04689500 T 
04690000 T 
04690500 T 
04691000 T 
04691500 T 
04692000 T 
04693000 T 
04693200 T 
04693500 T 
04694000 T 
04694500 T 
04695000 T 
04695500 T 
04696000 T 
04696500 T 
04697000 T 
04697500 T 
04698000 T 
04698500 T 
04699000 T 
04699500 T 
04707000 T 
04707500 T 



04708000 
04708500 
04708510 
04708515 
04708520 
04708525 
04708530 

04708535 
04708540 
04708550 
04709500 
04710000 
04710500 
04712000 
04712500 
04713000 
04713500 
04714000 
04714500 



0059 
0060 
0063 
0063 
0067 
0068 
0071 
0075 
0076 
0080 

0080 
0080 

0083 
0086 
0088 
0091 
0093 
0094 
0094 
0094 
0097 
0099 
0100 
0101 
0101 
0101 
0101 
0103 
0105 
0107 
0107 
0109 
0111 
0111 
0112 
0112 
0112 

0112 
0113 
0115 
0116 
0117 
0121 
0125 
0128 
0128 
0128 
0131 
0133 
0138 

0142 
0142 
0143 
0144 
0146 
0147 



c 
c 



<J 









c 

c 

o 
o 
o 
o 
o 



o 



^ 



o 
o 
o 

o 






o 

G 
r-, 

G 
O 
G 



KK s 



o 



"sj 



o 

G 
O 



BEfil 
BFr! 
J 

BFfil 
BEfil 
BEn! 
BEfil 

BEfil 
BEGl 



end; 

BEfil 
BEfil 



N 



ENp* 
J } 
BEfi! 
BEfil 
IF C 
ELSE 



plusp * true; go to rounq; end; 
code *■ aPhase; go to noend end; 

code * cPhase^ fiO to noend end; 
code * dphase* ro to noend end; 
code «■ ephase; go to noend end; 

CODE «■ FPHASEJ GO TO NOEnD END; 

code * gphase; go to noend end; 
if repeat = o then flogci3oj; 

IF ASK THEN BEGIN FLoGC3? )* G 

hf •■ true; I * 3; code «- hphase; 

WSAfTOTAL] * & HpHASEtTOCoDE ] 

go to round; 



% 


+ 


% 


A 


% 


B 


% 


C 


% 


D 


% 


E 


% 


F 


% 


G 


% 


H 



SEMIC END ; 



& REPEATCTOREPEAT] 



code * iphase; go to 
if code < 11 or code' 
if code=o or pf thfn 
pf-true; decimauo; 
go to round; 



noend end; 

15 THEN FL0GC134); 
FL0GC32) ; 
ASK«-ZF*FALSE ; 



EN n ; 

GO to rp; 

; 

LP} 
BEfil 



% t 
% & 



GO R 

ENp 

BFfil 

; ; 

BEfil 
BEG I 



IF CODE # THEN FL0g(32)J % ( 

IF ASK THEN REPFAT*4095; if RePFATsO AND ZF THEN FLAGU73) ; 
NaMLiSTtSAVLaSTLP «• PARENCT * PaRENcT + 1] * & TOTALtTOWlDTH] 
RCIF REPEAT<0 AND PARENCT>1 THEN 1 FLSE REPE AT ) [ TORePFAT ] ; 
TF ASK THEN 

BEGIN AS««-VRB«-FALSE * 

WSA [ TOTAL ]*3{?&LPPHRASEtTOCODE] 44095 CTOREPE AT] ; 

IF CT0TAL*T0TAL+1)>LSTMAX THEN GO NUL ; 

end ; 

ZF«-B00LEAN(REPEAT*DEClMAi,*O) ; 

str * true; 

GO To R0UND1; 



; % < * x 

N CODE*JPHASE; WIDTH*-!! GO NOEND END ; 3! J 
N % K 

OMMAS OR C0DE*0 THEN BfGIN FLAGC32); COMMAS*TRUE END 

BEGIN commas*true ; 

DO BEGIN NCR*GETCHAR(NCR»T>; XTA*T4XTA[12;18{30] END 
UNTIL T#» » ; 

TF (T<17 OR (T>25 AND T<33) OR (T>42 AND T<50) OR T>57) 
THEN BEGIN FLAGC32) ; 

IF Ts"*» OR T<|0 THEN BEGIN DECIMALS; GO FL END ; 

END ; 
NCR^BACKNCR(NCR); XTa«-BLaNKS4XTA t 18 1 12J 30 J ; 

fnd ; 
ound ; 
of k ; 
n code * lphase; go to noend; end; % i 

% M N 

n code «- ophase; go to noend; end; % 

N WSAfToTAlJ - & PpHASErj TOCoDE] 8! p 

& REAL(VRB)t42U7sl] 
4 REALCMlNUSP)tTOSlGN] & REPEAT [ TOWIDTHU 1 C T0REPEAT ] ; 



04714600 
04715000 
04715500 
04715600 
04716000 
04716500 
04717000 

04717500 
04718000 
04718100 
04719000 
04719500 
04720000 
04720500 
04721000 
04721500 
04722000 
04722500 
04723000 
04723500 
04724000 
04724500 
04725000 
04725500 
04725550 
04726000 
04726500 
04726510 
04726520 
04726530 
047?6540 
04726550 
04727500 
04727600 
04728000 
04728500 
04729000 
04729500 
04730000 
04730100 
04730110 
04730120 
04730125 
04730130 
04730135 
04730137 
04730139 
04730140 
04730145 
04730150 
04730160 
04730500 
04731000 
04731500 
04732000 
04732100 
04732500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0147 
0149 
0151 
0151 
0152 
0154 
0156 
0158 
0159 
0161 
0163 
0166 
0169 
0169 
0170 
0172 
0175 
0177 
0180 
0180 
0181 
0181 
0181 
0182 
0184 
0187 
0190 
0195 
0196 
0197 
0201 
0203 
0203 
0205 
0205 
0208 
0208 
0208 
0211 
0211 
0214 
0215 
0219 
0221 
0226 
0228 
0231 
0231 
0235 
0235 
0235 
0236 
0237 
0237 
0239 
0241 
0242 



v_ 



<~ 



L- 



C 

c 

G 
C 



c 
c 
c 
c 



c 
c 
o 
o 
o 



<y 



o 



MINUSP * PUUSP * FALSE? 04733000 T 0245 ,-, 

: ^ IF (DECIMAL = AND NOT ZF) THEN FL0GC131)! 04733500 T 0247 ( ^ 

GO TO NUL1? 04734500 T 0249 

ENn; ' 04735000 T 0250 

^ ; ; % Q R 04735500 T 0250 - J 

BEGIN IF DOLLARS OR C0DE#0 THEN FLAGC32) % S 04735600 T 0250 

ELSE BEGIN DOLLARS*TRUEI GO KK END ? 04735610 T 0253 

'^ D0LLARS*TRUE? GO ROUND ? 04735620 T 0255 <J 

ENn OF DOLLAR SIGN ; 04735630 T 0256 

IF NOT ASK THEN % * 04735700 T 0256 

O BEGIN 04735710 T 0257 O 

IF ZF OR DECIMAL NEQ ThfN FLAG'S)? DEC IMaL » a4095; 351 1 1 - 04735715 P 0257 

IF CODF=0 THEN REPEAT*DEC I MAL 04735720 T 0261 

^ flse if not pf then width*decimal j 04735730 t 0262 O 

VRB «= ASK Is LlSTEL ?a TRUE? GO ROUND? MOl= 04735740 P 0266 

END ELSE BEGIN DEC I MAL- *4095 ? FLAGC1B3); GO FL END ? S111- 04735750 P 0?69 _ 

- BEGIN MINUSP * TRUE? GO TO ROUnD; END? % - 04736000 T 0273 ^ 

RP» 04736500 T 0275 

BEGIN IF FIELD THEN BEGIn NCR * BACKNCR( NCR > J % ) 04737000 T 0276 

^ GO To ENDER; END? 04737500 T 0278 

IF DECIMAL * THEN FlAG(32>? 04737600 T 0279 

I «- IF PARENCT = l ThEN IF SAVLASTLP > 1 THEN 2 ELSE 1 04738500 T 0281 .-. 

^ ELSE PARENCT? 04739000 T 0284 U 

WSA[T0TAL]*CJ*NAMLlSTU])&CT0TAL+l-J»J.[IB»12J>[T0LlNK] 04739500 T 0285 

& (IF PARENCT * PARENCT-1 s THEN 77 ELSE ) C TODEC I MAL] ? 04740000 T 0290 

O IF WSACJ3 , t H5]=LPPHRASE AND PARENCT*0 THEN 04740100 T 0294 ^ 

BEGIN WSACJ3,[18I123*T0TAL-JI WSACTOTALJ . C 18 J 12 ]*TOT AL- J J 04740110 T 0297 

END 1 04740115 T 0302 

<J NAMLlSTtIl,[6il23 * 0; 04740500 T 0303 ^ 

CODE * HPHASEJ 04740600 T 0306 

GO TO NUL1I 04742000 T 0307 

O ENn? 04742500 T 0307 O 

; J % l LEQ 04743000 T 0308 

GO TO ROUND? % BLANKS 04743500 T 0308 

O BEfilN SLCNT * II % / 04744000 T 0308 O 

St« IF CODE-0 THEN IF ASK OR ZF OR DECIMALS THEN 04744100 T 0309 

BEGIN FLAG(32)| aSK4- Z p *bQ0LEaN( DEC IMaL*0 ) END ? 04744110 T 0313 

'J IF C0DE<5 THE N TF T*°t" THFN GO ROUNnl ELSE GO ROUNd EUSr GO 04744500 T 0316 O 

ENDER ? 04744505 T 0319 

ENn? 04745000 T 0319 

O ? % S 04745500 T 0319 O 

begin if Repeat * o then flagc32)? % i 04746000 t 0319 

CODE *■ TPHASE? 04746050 T 0321 ^ 

{ -> GO TO NOEND? 04746100 T 0322 U 

END? 04746150 T 0322 

? % U 04746500 T 0323 ,-. 

O BEGIN VRB-TRUE? CODE«-VPHrASE ? WIDTH*-1J GO NOEND END I % V 04746750 T 0323 ^ 

? % W 04746800 T 0326 

BEGIN IF REPEAT a ThEN FL0G(130)I % X 04747000 T 0326 

^ IF STR THFN 04747200 T 0328 O 

NEWWDI WSACTOTALJ * & XPHASE C TOCODE 3 8 REPEATr TOWIDTH 3 04747400 T 0329 

_. & IETORFPeAT] 04747600 T 0332 ^ 

O & REAL(VRB)[42?47?13 04747700 T 0333 ( ^ 

ELSE 04747800 T 0334 

BEGIN 04748000 T 0335 

O IF (J*WSAtT0TAL-n).C*2?6]>0 OR ( I * J , [ 1 « 5 J )sRTPARN 04748800 T 0335 O 

OR (REPEAT^32 AND I*XPHASE) THEN GO NEWWD ? 04749000 T 0339 



O 

o 



o 
C 



u 



L. 



•^j 



O 

o 

^ — . 

c 
c 
c 
o 
o 
o 



END* 

; ; 
go sl 

GO To 

; ; ; 



END* 
GO TO 



LP, 



IF I=XP H ASf AND t I«-U,[l8si2]+REPEAT)<4090 THEN 
WSACTOtAL»TOTAU»13 ♦ J & ICTOWIOTH] 
ELSE IF RfPEAT * 32 THEN GO TO NfWWD 
ELSE WSA[TOTaL*TOTaL»13 «• J & 

& 



REPEATfTONUM] 
UTOCNTRL]? 



NUL1 



% 
% 
% 

% 



= ] 



END OF CASE STATEMENT 



FLOGM3P) J 

go to fall j 
fNdeRj 



% ILLEGAL CHARACTERS 



04749200 
04749400 
04749600 
04749800 
04750000 
04751000 
04752000 
04752500 
04753000 
04753500 
04754000 
04754500 
04755000 
START OF SEGMENT 
137 IS 64 LONG. 



TF CODE > ft THEN 
REGTN IF WlDTHsO 



IF 



FLAG(130) 
THEN 



NUl.ll 



o 

o 
o 
o 
o 
o 
o 

o 



NOEND! 

FALL' 
NULl 



then 
codekvphRase 
begin 

if widTh=-i then if pf Then flagci30)el,se width* 
decimal*4094 else 

IF NOT Pf THEN DEClMAL*4094 J 
END 
ELSE 
IF CODE > 10 AND CODE * 15 THEN 

IF (DECIMAL * AND NOT ZF) OR NOT PF THEN FLAGH33) 
ELSE ELSE DECIMAL + 0{ 
IF REPEATsO THEN REPEATM i 
IF WIDTH**! THEN WlDTH*0 ; 
WSACToTAL] * & CoDE[TOCoDEj & W IDTHC ToW I DTH] 

& REPEATCTOREPEAT] & DEC I MALt T0DEC I MAL 3 
& REALCCOMMAS) [44J47JU 

& REAL(VRB)C42:47JU 

& REALCDOLLARS) U5!47»1JJ 

FND ELSE IF DECIMAL / THEN FLAG(32)J 

TF PLUSP THEN FLAG(l64)J 

TF CODE^VPHRASE THEN 

REG IN 

TF DOLLARS ANDCCODE < 9 OR CODE > 14) THEN FLAGC166); 

TF COMMAS AND NOTCCODE » 10 OR CODE = 12 OR CODE = 9) 
THEN FLA6C165)* 

rND J 

VRB* 

FRRORTOG * FIELD «• PF 

TF CODE s HPHASE THEN 

pooF * Repeat * width 
xta «• blanks; 

r,0 TO FALL? 

tf field then flago2)j 

IF CODE / TphASE THEN KlSTEL «• TRUE ELSE REPEAT «. lJ 
TF REPEATaO AND ZF THEn FLAGfl73) ; 
FIELD «- TRUE? 
IF MINUSP THEN BEGIN FLAG(32)J MINUSP 

ask*zf«-false J 

DECIMAL * 0; 



«. PLUSP * DOLLARS 
STR «• TRUE? 
«- o; 



* COMMAS * STR * FALSE? 



* FALSE END; 



04755500 
04756000 
04756500 
04757000 
04757400 
04757410 
04757420 
04757425 
04757430 
04757440 
04757450 
04757500 
04758000 
04758100 
04758400 
04758410 
04758500 
04759000 
04759100 
04759150 
04759200 
04760000 
04760500 
04760550 
04760560 
04760600 
04760700 
04760800 
04760850 
04760890 
04760900 
04760940 
04760980 
04761000 
04761500 
04762000 
04762500 
04762510 
04763000 
04763500 
04764000 
04764500 



0343 
0346 
0349 

0352 
0356 
0357 
0357 
0358 
0358 
0358 
0359 
0359 
0359 

NEXT SEG 
0360 
0360 
0361 

0362 
0365 
0366 
0366 
0370 
0371 
0374 
0374 
0374 
0378 
0382 
0384 
0386 
0388 
0391 
0393 
0394 
0395 
0397 
0399 
0401 
0402 
0402 
0406 
0408 
0411 
0411 
0411 
0415 
0417 
0419 
0419 
0420 

0422 
0425 
0428 
0429 

0431 
0432 



U- 



137 
134 



c 



o 



u 






C 

c 

c 



o 



o 
o 
o 
o 
o 

c 



IF PARENCT s THEN BEGIN SCN * U GO TO SEMIC END? 

TF CODE < 5 THEN 

IF TOTAL * TOTAL+1 > LSTMaX THEN 

BEGIN FL0G(78);T0TaL * TOTAL-2; 

go to round; 



GO TO SEMICJ END? 



NOPLACE! 



o 



u 



u 



SCN *- Oj 
SEMfCJ 
TF SCN = 



if(dcinput or freeftog) and (strlngf 
tf tsseditog then if cstRingf or hf) 
then tssedcxta.1); 

IF CONTINUE THEN TF RFADACARD THEN 
BEGIN IF LISTOG ThEN PRiNTCARDJ GO 

next * semi; 



or hf) then fl0gu50); 
and not dcinput 

to round; end; 



1. 



TF 
TF 
IF 
IF 
IF 



0? 
PARENCT 



< o Then 9 else e>; 



PRTC752) = *LIST» 



o 



O 



n 



<j 



then scan; 
strtngf then flag (22); 
not mstel then wsacoj «. 
PARENCT / o then flagcif 

D # THEN PRTSAVER(D»ToTAL+i #WSA)J 

debugTog then begin 

WRlTE(LlNEtFM) J 
FnR 1*0 STEP 1 UNTIL TOTAL DO BEGIN 
WR!TECLlNE»[13)//iI»CJ*HSACl]),lll53»J*t6lt2]f J,C18f 123»Jtt30ll23» 
LABEL* OR SEGMENT DESCRIPTOR* 

JtCH H3t J#CA2i43»J i C42l53i Jit44ll J»JtC45tll» 
J,U6ll3»J,U6»23»J,U7»l3) ; 
IF J,tU53=2 THEN I * I + ( J , f 6 : 12 3+2 } , C 36 I 9 3 ; 

END ; 

writeu..inecdbl3) j 
end of debugstuff ; 
end formater; 



04765000 
04765500 
04766000 
04766500 
04767000 
04767500 
04768000 
04768500 
04769000 
04769500 
04770000 
04770500 
04771000 
04771500 
04772000 
04772500 
04772600 
04772605 
04772610 
04772615 
04772620 



PROCEDURE fxecutable; 
begin label xit? real 



134 IS 



t, j, ts» p; 



04772625 T 

04772630 T 

04772635 T 

04772640 T 

04772645 T 

04772650 T 

04773000 T 
535 LONG* 

04773010 T 

04773020 T 



0433 
0436 
0437 
0439 
0442 
0442 
0447 
0449 
0451 
0453 
0456 
0457 
0458 
0459 
0461 
0463 
0467 
0471 
0471 
0474 
0476 

0492 
0505 
0515 
0519 
0522 
0526 
0526 
NEXT SEG 
0556 
0556 



STAC«(F+2) s T 

STACKCF+3) a J 

STACK(F + 4) st TS 

STACKfF+5) = P 



START Of SEGMENT ********** 138 



o 



o 

u 

o 

o 
o 

o 



TF 
TF 
IF 
T 



SPLiNK 

LABL s 

T * SEARCHCXTA 



BEGIN 



(ADR+DCTOADDR] K 
THEN 

eno; 



ENDJ 



< THEN FLARC12); 
BLANKS THFN GO TO XI T; 
* LABL) s THEN 
ENTERf-0 & LABELlDrTOCLASS] & 
NSEG[ToSEGN03> LABL) ELSE 
IF (P * GETCT)), CLASS * LABELID 
BEGIN FLAGC144); GO To X IT END) 
IF P < THEN BEGIN FLAGC20); GO To XI T 
TS *■ P.ADDRJ 
WHILE TS if DO 

BFG1N J «• GITCTS); F I XBC TS+10000 ) i TS * J END; 
PUT(T* P**P & (ADR + 1HT0ADDR3 & NSEG [ T0SEGN03 ) ; 
IF (T «- GET(T + 2)),BASE * THEN 
T * PR6DESCBLDRC2, T.BASEt ( ADR + 1 ) . C 36 i 10 ] , NSEG); 

IF XREF THEN ENTERXCLABLM&LABELlDtTOCLASS] }; 



END 



XiTt 

executable; 
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procedure tocommandcn); value n; real n; 



04773030 T 

04773040 T 

04773050 T 

04773060 T 

04773070 T 

04773080 T 

04773090 T 

04773100 T 

04773110 T 

04773120 T 

04773130 T 

04773140 T 

04773150 T 

04773160 T 

04773170 T 

04773175 T 

04773180 T 

04773190 T 
43 LONG. 

04774000 T 



0000 
0002 
0003 
0005 
0009 
0011 
0014 
0015 
0018 
0019 
0021 
0026 
0030 
0033 
0037 
0037 
0040 
0040 
NEXT SEG 
0556 



c 
o 
o 
o 
o 
o 
o 
o 
o 
o 

■u 

o 

Q 

o 
o 
o 
o 
o 
o 
o 
o 

c 



L. 



■w' 



U 



PRTC753) s fOCOMMAND 

COMMENT 



o 



o 



o 
o 
c 
o 
o 
o 



o 
o 
o 

o 

o 
o 



N 


COMMAND 




1 
2 


Read 

WRITE 
PRINT 


3 
ft 


PUNCH 
BACKSPACE 



7 DATA) 

BEGIN label xit»such»lister»noFoRm,former,wrap.daat»nf; 

LABEL LTSTERU 

BOOLEAN SUCHTOGt RDTRlN* FREEREAD; 
STACKfF+2) =s SUCHTOG 
STACKcF+3) n RDTRIN 
STACKfF+4) = FREFREAD 

BOOLEAN FORMARY* NOFORMT? 
STACKfF+5) = FORMARY 
STACKfF+6) =; NOFORMT 

BOOLEAN NAMETOg; 
STACKfF+7) = NAMETOG 

DEFINE DATATOG b datastmtflag#; 

REAL T, ACCIDENT* FDITCODEJ 
STACKfF+lO) s T 
STACKrF+11) = ACCIDENT 
STACKfF+i?) = EDITCODE 

REAL datab; 
stack(f+13) = datab 

procedure actionlabelscunseen); value unseen; boolean unseen; 
prtc754) - actionlabels 

begin label eof »err » rata* x i t» act i on , mult i; 

Boolean backigoterr»goteof; 
stack(f+2) = back 
stack(f43) * goterr 

STACKCF+4) s GOTEOF 

IF UNSEFN THEN SCAN? 

FOFJ If GOTEOF THFN GO TO MULTU 

IF BACK * NAME = "END " THEN GO TO ACTlONl 
FRR» IF GOTERR THFN GO TO MUlTtS 

if name * "ERR " then if goteof then 

BfGIN MULTp XTA * NAME; FL0GU37); 
GO TO xjt; 

end else go to rata; 
acttonj scan; 

IF NFXT » EQUAL THEN SCAN ELSf GO TO RATA** 

if nfxt * num then go to rata; 
if xref then enterxfnamefo&labelldctoclass]); 
if back Then nXi «. name else nX? * name; 
scan; if next - rparen then go to xit; 

if next = comma then scan else go to rata; 
if back then 

BEGIN BACK * NOT ( GoTEoF * TrUE); 

go to err; 
End; 
goterr - true; 



04775000 T 

04776000 T 

04777000 T 

04778000 T 

04779000 T 

04780000 T 

04781000 T 

04782000 T 

04783000 T 

04784000 T 

START OF SEGMENT ********** 

04784200 T 0000 

04785000 T 0000 



04785020 T 0000 



0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 



^ 



139 



04785050 T 0000 

04785100 T 0000 
04786000 T 0000 



04786100 T 0000 

04787000 T 0000 

04788000 T 0000 

START OF SEGMENT ********** 140 

04789000 T 0000 



C 






c 



c 



o 






o 



04790000 
04791000 
04792000 
04793000 
04794000 
04795000 
04796000 
04797000 
04798000 
04799000 
04800000 
048001 00 
04801000 
04802000 
04803000 
04804000 
04805000 
04806000 
04807000 
04808000 



0000 
0001 
0003 
0005 
0006 
0007 
0009 
0012 
0012 
0012 
0014 
0015 
0018 
0021 
0022 
0024 
0024 
0026 
0027 
0027 



c 
c 



■c 



o 
o 
o 



< ) 



^ 



! ') 



, \ 



<J 



o 



^■ ; 



c 
o 



J 

o 

o 

o 
o 

o 



GO TO EOF; 

rata; xta * name; 

xitj 

end acttonlabels; 



FLOG(O); 



IF DEBUoTOG THEN FLAGROUT I NEC " 1 0C0M% "MAND »,TRUE ) ; 

EODS«-N^7 ; 

C2 * IF N = OR N s 7 THEN 1 ELSE 0; 

scan; if nfxt = semi then begin flooco); go to xi t end; 

IF N = 7 THEN 

BEGIN DATATOG «• TRUE J 

IF LOGIFTOG THEN FLAfiC 101 )l 

LABL * BLANKS,* 

if splink > o Then xnot block data stmt 
Bfgin 

if dataprt=o then begin 

dataprt*prts«.prts + 1< adjust; 

DATASTRT«.(ADR+l)&NSEGrToSEGNO] END 
ELSE FIXB(DATALINK); 
EMITOPDCUIT(DATAPRT); EMlToCLNG); 
EMITBC-lt TRUE); DATaB + LAX; 

End; 

Go to daat; 
end; 

executable; 
fMjtO(MkS); 

IF N = 4 THEN 
BEGIN 

INLINEFILE ; 

BrGlN EMITLCO); EMjTLCO); EMITLCO); EMITL(O); 
EMITLC5); EMITL(O); emitlcoj; 

emitvcneed(»,fbinb".intrfunid)); 
end; 

GO to xit; 
fNd; 

FDlTCODF «• NX1 * NX2 * 01 
IF RDTRyN 4- 

n - o then if next s lpaRen then go to such 

ELSE EMlTDESCLlTfFlLECHECKf«.5 ",2+l7xREAL 

ELSE IF N = 1 THEN IF NEXT * i.PAREN THEN FLAGC33) 

ELSE GO To SUCH 
ELSE IF N = 2 THEN 

EMITDESCLIT(FILECHECK«",6 ">2+17xREAL 
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S503- 
(REM0TET0G))) 



X503- 
2503- 
(REMOTETOG))) 



else emitdesclitcfilecheckc m »punch"»0)); 
if rdtr t n then emitlco) else em itp a lr( 1 » ssn } ; 
go to former; 

such; scan; randomtog«-suchtog*true; inlinffile ; 
randomtog*fReeread*-faLse ; 
if nfxt = equal then % random key 
bfgin scan; 

IF EXPR(TRUE) > RfALTYPf THEN FLAGC102); 

IF RDTRIN THEN EMi TPA I Rf 1 » ADD) ; 
END ELSE IF RDTRiN ThEN EMlTLfO) ELSE EM J TPA lR( l , SSN) ; 
I F NEXT s RPAREN THEN GO TO Nf; 



04809000 T 
04810000 T 

04811000 T 
04812000 T 
34 LONG* 
04812010 T 
04812020 
04812050 
04813000 
04814000 
04815000 
04816000 
04816100 
04816U0 
04816120 
04816130 
04816135 
04816136 
04816137 
04816140 
04816150 
04816160 
04817000 
04818000 
04819000 
04820000 
04825100 
04825200 
04826000 
04832000 
04833000 
04834000 
04835000 
04836000 
04837000 
04838000 
04839000 
04840000 
04841000 
04841100 
04842000 
04843000 
04844000 
04845000 
04845100 
04846000 
04847000 
04848000 
04849000 
04850000 
04850100 
04852000 

04853000 
04854000 
04855000 
04856000 
04857000 



0028 
0028 

0030 
0031 
NEXT SEG 
0000 
0002 
0003 
0007 
0012 
0012 
0015 
0017 
0017 
0018 
0019 
0020 
0022 

0024 
0026 
0027 
0029 
0029 
0030 
0030 
0030 
0031 
0032 
0032 
0033 
0036 
0038 
0039 
0039 
0042 
0042 
0043 
0043 
0046 

0048 
0049 
0054 
0055 
0056 
0058 
0059 
0059 
0063 
0068 
0068 
0072 
0074 

0075 
0076 

0078 

0080 

0084 



139 



c 

c 

c 
c 
c 
o 



o 
o 
o 
o 
o 
o 
o 



o 
o 
o 

o 



^ 



\J 



o 



u 






» THEN 
EMlTPAlR(l#SSN)J 



o 



o 






o 



u 



O 



LJ 



o 



o 1 



if next * comma then begin fl0g(114); go to xi t end; 

scan? 

if next = id then 

IF NAME a "ERR w OR NAME - "EnD 
BEGIN ACTI0NLABELSCFALSE)J 

NF> IF RDTRIn then EMITLCO) else 
EMITL(O); 

noformt «. trUf; 

scan; go to noform; 
end; 

former! if adr s 4085 then 

BfGIN ADR * ADR+1J SEGOVF END; 

IF NFXT = NUM THEN ?! FORMAT NUMBER 

BFGIN EDITCODE «• H 

IF TEST * LBUShFTcNaME) < THEN 

BEGIN FLAGC135); rO TO LISTER END; 

if i * searchctest) - o then % nfver seen 

OFL0WHANGERS(I*ENTERCO&FORMATmrTOCLASS], TEST)) ELSE 

IF GET(f), CLASS t FORMATID THEN 

BEGIN FLAGU43)* GO TO LISTER END; 

IF XREF THEN ENTERXf TESTtO&FORMATlDrTOCLASS]); 

IF GETf I),ADDR = THEN 

BEGIN EMfTLfNKf tINFC * fiETfl + 2)). BASE); 

PUTn + ?,INFC&ADR[T0BASE]); 

EMITLCO)'* EmITL(O); EMlTOfNOP); 
END ELSE 
BEGIN EMITL(GET(I+ ?),base); 

EMlTpAlR(GETCl)»ADDRtLOD); 
END? 

go To lister; 

END ELSF IF RDTRIN THEN IFfFREEREAD }s NEXT=SLASH) THEN GO TO LISTER 
ELSE BEGIN- IF NEXT NEQ ID THEN BEGIn FL0G(U6);G0 TO XI T J END;END 
ELSE IF NEXT NEQ ID THEN 
BEGIN IF NEXT s STAR THEN 

BEGIN NAMEDESC 8= TRUE; GLOBALNAME := TRUE; 

TV 8= ENTER(0&LlSTSIDrT0CLASS3,LlSTlDlsLlSTlD+l); 
SCAN; 

end; 

if next = lparen then 

begin scan; if expr(trup) gtr realtype then flagc120) ) 

SCAN; END ELSE fMtTLCO)! 
IF GLOBALNAME AND fFRFEREAD la NEXT a SLASH) OR FREEREAD THFN 
GO TO LISTeR ELSf BEGIN FLOG(llO); GO TO XlT; END; 

end; 

gfTallh «• fnext,iNfa»infb»info; 

IF T * JNFA, CLASS s ARRAYlD ThEN % FORMAT ARRAY 
BFGJM EDITCODE «• 1 i 

FORMARY + TRUE; 

T * EXrR(FAlSE); 

adr «. adr-ii % eliminate xch emitted by expr 

if expresult * arrayld then fl0g(h6)i 

go to llsteri; % scan already done in expr 
end else 

IF T s NAMELIST THEN 
BEGIN NAMETOG J= TRUE; 
IF INFA.ADDR = THEN % REFERENCED* NOT DEF 
BEGIN EMITlINK(INFC,BaSe)? 



04858000 


T 


0085 


04859000 


T 


0087 


04860000 


T 


0088 


04861000 


T 


0089 


04862000 


T 


0091 


04863000 


T 


0092 


04863100 


T 


0098 


04863500 


T 


0098 


04864000 


T 


0099 


04865000 


T 


0100 


04866000 


T 


0100 


04866100 


T 


0101 


04866200 


T 


0104 


04867000 


T 


0104 


04868000 


T 


0106 


04869000 


T 


0108 


04870000 


T 


0112 


04871000 


T 


0113 


04871100 


T 


0117 


04871200 


T 


0119 


04873000 


T 


0121 


04874000 


T 


0124 


04875000 


T 


0125 


04876000 


T 


0129 


04877000 


T 


0131 


04878000 


T 


0133 


04879000 


T 


0133 


04880000 


T 


0136 


04881000 


T 


0138 


04882000 


T 


0138 


04883000 


T 


0139 


04883100 


T 


0141 


04883150 


T 


0144 


04883200 


T 


0146 


04883300 


T 


0147 


04883350 


T 


0151 


04883400 


T 


0154 


04883450 


T 


0155 


04883500 


T 


0155 


04883550 


T 


0156 


04883600 


T 


0159 


04883650 


T 


0161 


04883700 


T 


0164 


04883750 


T 


0166 


04884000 


T 


0166 


04885000 


T 


0168 


04886000 


T 


0169 


04886050 


T 


0171 


04886100 


T 


0171 


04887000 


T 


0173 


04887100 


T 


0174 


04888000 


T 


0176 


04889000 


T 


0176 


04890000 


T 


0176 


04890100 


T 


0178 


04891000 


T 


0179 


04892000 


T 


0180 



c 

c 

c 
c 
c 
c 
c 
c 
c 
c 

c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
O 



r^ 






PUTCI+ 2»CINFC * INFCKADRCTOBASE]))* 04893000 T 0182 

U FMITLC0)J EMlTLfO)} EMITO(NOP)* 04894000 T 0184 ^ 

END ELSE 04895000 T 0187 

BEGIN EMlTUlNFCtBASE)! 04896000 T 0187 

^ EMITPAIRCINFA,AdDR#LOd)J 04897000 T 0188 '^ 

END 04898000 T 0190 

FND 04898100 T 0190 

^ ELSF IF T ; UNKNOWN THEN % ASSUME NAMeLIST 04899000 T 0190 

BrGfN PUTfiitlNFA * I NFA&NAMELI ST C TOCLASS ] ) ) J 04900000 T 0191 

NAMETOfi S= TRUf; 04900100 T 0194 

O oflowhangeRsc i )* 04901000 t 0195 ^ 

EMlTLlNK(O); PUTrl + 2 , I NFC&ADRt T0BASE3 ) * 04902000 T 0l96 

EMlTL(O)* EMITL(O); EMITO(NOP)* 04903000 T 0198 ^ 

O end else begin xta «. infb* floG(U6); go to x it end; 04904000 t 0201 ^ 

scan* 04905000 T 0203 

IF NEXT * COMMA THEN ACT IqNLABElS(TrUE) J 04906000 T 0204 

o if suchtog then 04907000 t 0206 

IF NEXT * RPAREN THEN FL0G(108) ELSE SCAN* 04908000 T 0206 

IF NEXT * SEMI THEN BEGIN FL0GC118); GO TO X IT END* 04909000 T 0209 ^ 

O EmIU.CO); FDITCoDE «- 4* EMIT0PDCLITC7)* EMITO(FTC); 04910000 T 0212 O 

GO TO WRAP* 04911000 T 0215 

LISTER* SCAN; 04912000 T 0215 ^ 

O IF FREEREAD THEN \? NOT RDTRIN THEN 04912100 T 0216 ^ 

BFGIN IF NEXT t SLASH THEN EMlTO(SSN) ELSE SCAN* 04912200 T 0217 

IF NEXT = LPARFN THEN 04912300 T 0221 

C BFGIN SCAN* IF EXpR(TRUE) > REALTYPE THEN FLAGC 120 )* SCAN 04912400 T 0222 ^ 

END ELSE EMjTL(O)* 04912500 T 0225 

END* 04912600 T 0227 _ 

'o listfr1! 04912700 t 0227 c 

if suchtog then 04913000 t 0228 

BrGlN IF NEXT n COMMA ThEN ACT 1 0NLABELS( TRUE ) * 04914000 T 0228 

O IF NFXT a RPAREN THEN ScAN ELSE BEGIN FL0G(l08)* GO TO XlT END* 04915000 T 0230 

END FLSf IF NEXTsCOMMA THFN SCAN ELSE IF RDTRIN THEN 04916000 T 0234 

IF NEXT#SFMI THEN FL0G(114)* 04916100 T 0237 

O NOFORMI IF NEXTsSEMI THEN 049*7000 T 0?39 ^ 

BFGIN IF FREEREAD THEN FL0G(061) ELSE EMiTLCO)* GO TO WRAP END* 049i7l00 T O24O 

^ IF (NEXT NEQ LPAREN) AND (NEXT NEQ ID) AND (NEXT NEQ STAR) THEN 04918000 T 0244 ^ 

U GO To XI T; 04918100 T 0247 ^ 

EDITCODE * EDITCODE + 2* 04919000 T 0?48 

DAATI E M ITB(-1»FALSE)J LADR1 * LAX? ADJUST* DESCREQ «• TRUE* 04920000 T 0249 ^ 

O IF ADR > 4085 THEN 04920100 T 0253 ^ 

BfGIN ADR «• ADR + 1J SEGOVF* ADJUST END* 04920200 T 0254 

ACCIDENT «• PRGDESCBLDR(0»0»ADR f [36*10] + 1»NSEG)* 04921000 T 0256 ,_, 

U EMIT0PDCLITC19)* EMITO(GFW); 04922000 T 0259 ^ 

LlSTART «• ADR&NSEGCT0SEGN03* ADJUST* 04923000 T 0261 

LA * 0* IOLISTCLA)* 04924000 T 0263 

U EMITL(I)* EMITO(CHS)* EMlTL(l9); EMITO(STD)* 04925000 T 0265 ^ 

EMITDESCLIT(19)* EMlTO(RTS); 04926000 T 0268 

FTXB(LADRl)* DESCRFQ * FALSF* 04927000 T 0269 

O if oatatog Then 04928000 t 0271 ^ 

bfgin dataset* 049?9000 t 0271 

_ if next = slash Then scan else 04930000 t 0272 

O BEGIN FL0GC110)? c,0 TO XI T END* 04931000 T 0274 v ~ 

IF LSTAsO THEN BEGIN BUMPPRT* LSTA«-PRTS END* 04932000 T 0277 

?F (LSTMAX - LSTl) < LSTS THEN 04933000 T 0283 

U BEGIN WRlTEDATA(LSTi»NXAVlL * NXAVjL + 1,LSTP)* 04934000 T 0?84 ^ 

USTA ♦• PRGDFScBLDR(l»LSTA,0,NXAViD* 04935000 T 0287 



r> 



c 



L, 



o 

o 

o 
o 





• LSTS + 1),[36«6]»LSTS); 
EMlTPAIR(LSTA»LOD)J 



EMITOCFTF); 



o 
o 



u 



O 



u 



O 

G 
O 



lst i * 0? BUmPPRT; lsTa*prtsj 
eno; 

MOVeW(lSTT»lSTP[LSTi]#(lSTS 

EMITOCMKS)) EMITKLSTD? 

LSTI * L.STI + LSTS? 

EMITPAIR(ACCIDENT,L0D)J EM I ToPDCLI TC 7 ) J 

EMITLC6)! EMITL(O)? EmITLCO); 

EMITVCNEEDC.FBINB", INTrFUNID))J 

IF NEXT = COMMA ThEN 

begin scan; GO TO DaAT ENDJ 

IF SPUNK > THEN BEGIN 

EMITBCM»FALSE)J DAT ALI NK*LAX } 

FIXB(DATAB) ENDJ 
GO TO xit; 
ENDJ 

emitpaircacctdent.u0d5j emit0pdclitc7jj emit0(ftf)j 
wrap« tr not freerfad and not nametog then em i tlced i tcode) j 
if rdtrtn then 

BEGIN if NX1 = THEN EMITL(O) ELSE EMlTLABELDESC(NXl); 

i F NX2 n o then emitlcO) else emiTlabeldesccnx?) j 

IF FREEREAD THEN EMITV(nEED(»IfREFR», INTRFUNID)) 

else if nametog then pmf tv( needc % f t nam's i ntrfuni d ) ) 
else if f0rmary then em t tv(need( " . ft i nt", i ntrfun i d ) ) 
else if n0f0rmt then emi tv< n eed( ", fb i nb», i ntrfun i d ) ) 
else em i tv (needf».ftnin»t intrfunid)) j 
end else 

IF FREErEAD THEN 
BEGIN 

IF NAMEDESC THEN 
BEGIN 

PRTSAVERCTV,NAMEIND+1»NAMLIST)J 
EMITLCGET(TV+2),BASE)J 
EMITPAIRCGET(TV),ADDR,LOD)J 
IF NAMLISTCO] s THEN EMITL(O) 

ELSE EMlTPAlR(GFTfGLOBALSEARCHC ,, .SUBAR M )).ADDR»LOD)J 
NAMLlST[0] != NaMeIND 1 = OJ 
END ELSE BEGIN EM I TLc ) J EM I TLC ) J EM I TLC ) J ENDJ 
EMiTV(NEED(",FREWR"iINTRFUNID)) 
ENn ELSE IF NAMETOG THEN FMI TVf NEEDC » , FONAM'M NTRFUNf D) ) 

ELSE IF FORMARY ThEN EM I TV (NEEDC " . FTOUT'M NTRFUN I D) ) 
ELSE BEGIN 

IF NXi*0 THFN EMITLCO) ELSE EM I TLABELDESC C NX1 ) i 
IF NXpsO THEN EMlTLfO) ELSE EMlTLABELDESCfNX2)J 
IF NOFORMT T H EN FMl TVc NEEDC », FBI NB»» I NTRFUNI D ) ) FLSE 
EMTTVfNFED(%FTNOU'MNTRFUNlD))J 
ENDJ 
X I T * 

IF NAMEDESC THEN IF RDTRIn THEN FlAG(i59) 

ELSE IF NOT FREEREAD THEN FLAGC160)J 
DATATOG !s FALSEJ NAMEDESC : =s FAlSEJ GlOBALNAME ;= FALSE! 
IF DEBUgToG THEN Fl.AGROUT I nE C" I 0C0M"* "MAND ", FALSE) J 
END IOCnMMANDJ 



PRTC755) = 



PROCEDURE 
STMTFUN 

BEGIN 



STMTFUNCLINK)J VALUE LINK; REAL LINK? 
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DEFINE PARAM a LSTT#{ 



04936000 T 
04937000 T 
04938000 T 
04939000 T 
04940000 T 
04941000 T 

04942000 T 
04943000 T 
04944000 T 
04945000 T 
04946000 T 
04946500 T 
04946600 T 
04947000 T 
04948000 T 
04949000 T 
04950000 T 
04951000 T 
04952000 T 
04953000 T 
04954000 T 
04954050 T 
04954100 T 
04954150 T 
04954?00 T 
04955000 T 
04956000 T 
04956005 T 
04956010 T 
04956020 T 
04956040 T 
04956100 T 
04956200 T 
04956500 T 
04956550 T 
04956600 T 
04956650 T 
04956700 T 
04956750 T 
04956800 T 
04956900 T 
04956910 T 
04956920 T 
04956925 T 
04956930 T 
04956940 T 
04957000 T 
04957050 T 
04957055 T 
04957100 T 
04957110 T 
04958000 T 
414 LONG* 
04959000 T 

04960000 T 
04961000 T 



0289 
0294 
0294 
0298 
0300 
0302 
0304 
0306 
0308 
0309 
0312 
0313 
0315 
0316 
0316 
0316 
0319 
0321 
0321 
0325 
0328 
0330 
0334 
0338 

0342 
0346 
0346 
0348 
0348 
0349 
0350 
0352 
0354 
0356 
0358 
0362 
0363 
0368 
0369 
0373 
0377 
0380 
0383 
0386 
0388 
0392 
0392 
0393 
0395 
0399 
0405 
0407 
NEXT SEG 
0556 

0556 
0556 
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C 
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c 
c 
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c 
c 
c 



c 
c 
o 
o 
c 



I , 



O orAi c.uroBAn i- START Of SEGMENT ********** Hi _ 

-J RFAL SAVEBRAD* I) 04962000 T 0000 C 

STACKcF+2) * SAVFBRAD 



STACK(F+3) a J 



STACKfF+4) = INFA 

STACKfF+5) = JNFC 
O STACKfF+6) = NPARMS 

STACKfF+7) = TYPF 

STACKfF+10) s PARMLiNK 
O STACKfF+11) = BFGINSUB 

STACKfF+12) = Return 

LABEL XrT f TlX ) 
U IF SPLINK < THEN FLAGC12)) 



RFAL INFA, INFC* NPARMs, TYPE* PARMLTNK, BEGlNSUB. RETURN} 04963000 T 0000 



^ BEGIN 

SCAN* 



LABL, ♦■ BLANKS; 

FILET0G * TRUE; % PREVENTS SCANNER FROM ENTERING IDS In INFO 

IF XREF THEN ENTERX(GET(LlNK+l)»0&STMTFUNIDtTOCLASS] 04965100 T 0003 C 

*(GET(UINK))[21|21I3])I 
DO 



^ 



o 



if next * id then begin fl0gc1q7); go to xjt end) 

paramcnparms*nparms + 1 j *■ name* 04970000 t 0013 c 

scan; 
end until next * comma) 

if next * rpaReN then flog(108) else scan; 

if next * equal then begin flogcio4); go to xit end; 
emjtb(-1. false); saverrad * lax; % branch around st fun 

ADJUST) 

BFGINSUB * ADR+l) 
U BUMPLOCALS; EMiTPAlRfRFTURN*L0CALS+1536 t STD); 04979000 T 0025 O 

FOR I #■ NPARMS STfP -1 UNTrL 1 DO 
B EGtN - „_ x „_ , _ JJ 

^ tf t * searchcparamtu) * then 04982000 t 0033 o 

type «- geT(T), subclass else 

~. IE T*pARAMtn,ti2i63 < "I" OR T > «H" THEN „.„ UH . /VV , vv , f 

^ TYPE «- REALTYPE E L SE TYpE * iNTYpE) 04985000 T 0040 O 

EMlTSToREf ENTER CO&VAR I DC T0CLASSJ&1 C TOTYPF ] 

*TYRE[T0SUBCU» PARAM[M)» TYpE)) 
^ IF XREF THEN EnTErX ( N AmE* O&VAR I Dt ToCLASS J &TYpE[ ToSUBCU) ) 04987100 T 0048 O 

END; 

PARMLINK * NEXTINF0-3J U ,, 07V „« , w JH 

° GETALLCLINK# INFA. XTA, iNFOl 04990000 T OOSS O 

FILETOG * FALSE) 

^ IF CTYPF*(INFA*>GET(LlNK)),SUBCLASS) = LOGTYPE OR TYPE*COMPTYPE OR 04993000 T 0058 O 

(I*EXPR(TRUE))=LOc,TYPE OR I=COMPTYPE THEN 

BEGIN IF I*TYPE ThEN FLAGC139); gO TtX END ) 
^ IF TYPE=REALTYPE OR TYPE=INTYPE THEN 04993530 T 0068 O 

BEGIN 

-, if Ibdoubtype Then begin emitocxch); emitocdel) end ; -, ,,,_,,« , UW(W 

u IF TYPE=INTYPE THEN IF TINTYPE THEN EMI TPA I R( 1 , I DV) ; 04993560 T 0073 O 

go TtX ; 

end ; 

^ IF fitOOUBTYPE THEN EM I TPA I RC 0, XCH > ; 04993590 T 0077 O 

I I A I 

° o 

o o 
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04974000 
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0019 
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0025 
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04981000 


T 
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0033 
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04984000 
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0037 
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0040 
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0043 
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0046 


04987100 


T 
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04988000 
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0052 


04989000 


T 


0054 


04990000 


T 


0055 


04991000 


T 


0057 


04992000 


T 


0057 


04993000 


T 


0058 


04993500 


T 


0061 


04993510 


T 


0065 


04993530 


T 


0068 


04993540 


T 


0069 


04993550 


T 


0070 


04993560 


T 


0073 


04993570 
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0076 


04993580 
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0077 


04993590 


T 


0077 


04993595 


T 


0079 



c 



v_ 



c 



c 



o 



EM!TOPDCLlT(RETURN) ? 04994000 T 0080 

^ EMITOCGFW); 04995000 T 0060 v - 

FIXBCSAVEBRAO)! 04996000 T 0081 

if infa, class t Unknown then flagcho)? 04997000 t ooe? 

^ PUT(UINK» -INFA & 1CTQTYPF] & NSEG[ T0SEGN0 3 04998000 T 0084 ( ~ 

& STMTFUN1DCT0CLASSJ & BEGINSUBCTOADDR])} 04999000 T 0087 

04999500 T 0090 

'^ ; PUTCLINK+2* -CO & NPaRMSC TqNEXTRA ] & ADRCT0BASE3 05000000 T 0090 <~ 

% PARMLINKC36J368 123))? 05001000 T 0092 

PARMUINK * PARMLINK+4? 05002000 T 0094 

O FOR I * 1 STEP 1 UNTIL NPARMS DO 05003000 T 0095 ^ 

PUTCPARMLlNK «■ PARMLINK-3* ", " ) J 05004000 T 0097 

XlTi 05005000 T 0101 

O FILFTOG «• FALSE? 05006000 T 0102 C 

FND STMtFUNI 05007000 T 0102 

141 IS 108 LONG. NEXT SEG 6 _ 

O PROCEDURE ASSIGNMENT? 05008000 T 0556 ^ 

PRTC756) = ASSIGNMENT 

_^ BEGIN 05009000 T 0556 _ 

^ LABEL XlTi 05010000 T 0556 <- 

START Of SEGMENT ********** 142 

BOOLEAN CHCKJ 05010500 T 0000 

O STACKfF+2) s CHCK ^ 

BOOLEAN i? 05010600 T 0000 
~ STACKfF+3) 3 I 

^ tf debugtog then flagroutinec* assig w »»nment »»true ) ? 05011000 t 0000 ( - 

FXi ir FNEXT; , 05012000 T 0002 

SCAN? 05013000 T 0002 ~ 

^ IF NEXT a LPAREN THEN 05014000 T 0003 ( ~ 

BEGIN 05015000 T 0004 

CHCK«-TRUE; 05015500 T 0004 _ 

'J IF GET(FXi), CLASS s UNKNOWN THEN 05016000 T 0005 ^ 

IF EODS THEN 05017000 T 0007 

BEGIN XTA «• GETCFXl + 1); FL0GC035) J 05017010 T 0007 

O PUT(FXl»GET(FXl } & ARRAY I DC T0CLASS3 ) ? 05017020 T 0010 C 

PUT(FXl+2»GET(FXH2) & 1ET0NEXTRA3) ? 05017030 T 0013 

END 05017040 T 0016 _ 

O ELSE BEGIN STMTFUNCFXl)? GO TO X I T END ? 05017050 T 0016 U 

IF XREF THEN ENTeRXCGETCFX1+1)»1&GETCFX1> [15M5?9))J 05017055 T 0021 

EODS «• TRUE J 05017060 T 0025 

O EXECUTABLE? 050l7l00 T 0026 C 

SCAN? 05018000 T 0026 

I «- SUBSCRlPTScFXi,2)? 05019000 T 0027 ^ 

O SCANI 05020000 T 0028 l - 

END ELSE 05021000 T 0029 

BEGtN 05022000 T 0029 

U E0DS*TRUE ? 05022010 T 00?9 C 

EXECUTABLE? " 05022100 T 0030 

IF T * GET(FXi ), CLASS s ARRAYlD THEN 050?3000 T 0031 ~ 

'O BEGIN XTA «■ GETCFXl + i); FLAG(74) EnD? 05024000 T 0033 v - 

MOVEWf ACCUMCl3»HOLDIDt03#0#3)? 05025000 T 0036 

_ IF XREF THEN IF H0LDlD[03.n2U23 # "DO" THEN 05025100 T 0038 

<J ENTERXCGET(FXl+i)»t&GET(FXl)C2H?lJ33&VARlD[T0CLASS]); 05025200 T 0040 ^ 

FND j 05026000 T 0045 

IF NEXT f EQUAL THEN BEGIN FLAGC104)? GO TO XIT END? 05027000 T 0045 „ 

O SCAN; 05028000 T 0049 C 

IF NEXT=SEMI OR NEXT^COMMA THEN BEGIN FLOG(O)? GO TO XIT? END? 05028010 T 0049 



C 



.'-••'- 
^ 



° - L 

FX2 <- EXPR(TRUE); 05029000 T 0053 

u IF NEXT NEQ COMMA THfN IF HOLDlDCO] = "DO" THEN IF XREF THEN 05029200 T 0054 C 

ENTERXChOLDIDCO] »l&GET(FXl)C21»2H3]&VAR!0rT0CLASS])l 05029400 T 0057 

IF NEXT = COMMA THEN IF CHcK THEN FL0G(56) ELSE 05030000 T 0061 

^ IF HOLDIOrO], [J2I12] * "DO" THEN FL0GC56) ELSE 05030100 T 0064 C 

BEGIN 05031000 T 0068 

IF LOGIFTOG THEN FLAfiCiODi 05032000 T 0071 

° IF FX2 > REALTYPE THEN FLAGU02); 05033000 T 0073 C 

IF DT *■ DT + 1 > MAXDOs THEN BEGIN DT «• II FUGC138) END? 05034000 T 0075 

EMlTNfFXU CHECKDO)! 05035000 T 0078 

^ EMlTOfSTD)! 05036000 T 0080 <~ 

SCAN! 05037000 T 0081 

IF NEXT=SEMI THEN BEGIN FLAGC36)} GO TO XIT END! O5O38OOO T 0081 

'•-> if faccumco] = ", « or accumco] n "i ") and 05038900 t 0084 c 

globalnext=nUm and abscfnext) > 1023 them 05039000 t 0086 

BEGIN 05040000 T 0088 

^ IF EXPR(TRUE) > REALTYPE THEN FLAGU02)! 05041000 T 0089 C 

IDlNF08=REALiDJFNEXTJ=ENTER(IDINF0f"2FNVO0"&DTt36!36Ji?3); 05041100 T 0091 

EMlTNCFNEXTjsGETSpACECFNEXT)); EMITOCSTD)? 05041200 T 0094 

^ EMITB(-1»FALSE); LADRissLAX; ADJUST; 05041300 T 0097 C 

UADR2 * (ADR + l) & NSEGCTOSEGNO ] I EM ITV ( FNEXT ) I 05041400 T 0099 

END 05041450 T 0102 _ 

^ ELSE BEGIN 05041500 T 0102 C 

EMITB(*1»FALSE)J LADRl?=LAX; ADJUST? 05041600 T 0107 

LADR2J=(ADR+D&NSeGCT0SEGN0]J 05041700 T 0109 

'-' IF EXPR(TRUE) > RfALTYPE THEN FLAGC102) ; 05041800 T 0111 C 

END I 05042000 T 0114 

FMlTOfGRTR)! 05043000 T 0114 

^ EMlTBf-1. TRUE)* 05044000 T Ol 15 

LADR3 «• LAXJ 05045000 T 0116 

EMITBC1. FALSE)? 05046000 T Ol 17 

U ADJUST; 05047000 T 0118 

DOTESTrDT] «- (ADR+l) & LAXrTOADDR] & NSEGt TOSFGNO ] ? 05048000 T Ol 18 

IF NEXT * COMMA T«EN EMlTLfl) ELSE 05049000 T 0122 

° BEGfN 05050000 T 0124 O 

SCAN? 05051000 T 0125 

IF NEXT=SEMI THEN BEGIN FLAG(36); GO TO XIT END ? 05051100 T 0125 

■^ IF EXPR(TrUE) > REALTYpE ThEn FLAG(102)? 05052000 T 0128 O 

END I 05053000 T 0130 

~. EMITV(FX1)| 05054000 T 0130 ^ 

^ EMITOCADD); 05055000 T 0131 O 

EMITN(FXI); 05056000 T 0132 

EMITO(STN); 05057000 T 0132 

^ FMITB(LADR2» FALSE)? 05058000 T 0133 O 

FIXB(LADRI)? 05059000 T 0134 

FIXBCLADR3); 05060000 T 0135 

^ END ELSE eMiTST0RE(FX1» FX2)? 05061000 T 0136 O 

x lTt 05062000 T 0137 

IF DEBUfiTOG THEN FLAGROUTI NEC " ASSI G H » "NMeNt ", FALSE) ? 05062010 T 0138 

'O END ASSIGNMENT? 05063000 T 0140 O 

142 IS 145 LONG, NEXT SEG 6 

BOOLEAN PROCEDURE RlNGCHECK? 05063100 T 0556 
O. PRT(757) * RlNGCHECK O 

COMMENT THIS PROCEDURE PREVENTS THE POSSIBILITY OF DELINKING A 05063110 T 0556 

HEADER FROM THE HEADFR RlNG? 05063120 T 0556 

^ BEGtN 05063200 T 0556 O 

INTEGER I? 05063250 T 0556 
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PROCEDURE DIMENSION! " 4 IS oSO^oTl "o^V" 

PRTC761) = DIMENSION 05064000 T 0556 



BEGIN .„ 05065000 T 



0556 



o 



I I 



V 



O STACKrF+3) - I START OF SEGMENT ********** 143 

p! M 05063300 T 0000 

O IF I * GETCCD.ADDR = ROOT THEN RlNGCHECK * TRUE 05063400 f 0001 C 

until i - aj 05063450 t 0004 

END RlNGCHECK; 05063500 T 0005 

PROCEDURE SETLINK(INFADDR); VALUE iNFADDRj INTEGER INFADDR; ^ lS 0506360C> G T ^556^° * L 
PRTC760) * SETLINK 

u COMMENT THIS PROCEDURE LINKS AN ELEMENT TO ITS PREVIOUS HEADER; 05063601 T 0556 C 

REGI"* 05063610 T 0556 

INTFGFR LAST. II REAL COML; LABEL XlTI 05063620 T 0556 

STACKrF + 2) 3 LAST START ° F *™"M ********** 144 C 
STACKfF+3) = I 

^ STACKfF+4) = COML Q 

XlTS 05063625 T 0000 

,--, LAST «.fGETC(!NFADDR),LASTc>-ll 05063630 T 0000 

° EOR I * INFADDR+2 STEP 1 UNTIL LAST 05063640 T 0002 C 

DO RFGIN IF GETCCD. CLASS = ENDcOM THEN I ♦GETC C I ) . L I NK J 05063650 T 0005 

IF FXi a (C0ML*GETCCI)).LINK THEN 05063660 T OOlO 

IF InFADDR^CoML.lASTCsA THEN COMC PWI ] , LASTC*R00T 05063670 T 0012 C 

..... El,SE G ° XIT j 05063680 T 0018 

END SET. InJ' 05063710 T 0019 

END &ET|,INK, 05063730 T 0020 C 



<w 



LABfL L» LOOP* ERROR I 05066000 T 0556 

START OF SEGMENT ********** 145 C 

BOOLEAN DOUBLED* SINGLFTOGJ X109- OSOAfiOOS p ooon 

STACK(F+2) * DOUBLED l 05066005 P 0000 



c 



T 0002 
05067100 T 0004 C 



O STACKtF+3) s SINGLETOG 

IF DEBUfiTOG THEN FLAGROUTINEC" DlMEN"»»SlON «,TRUE ) I 05066010 T 0000 

IF LOGIFTOG THEN FLAfiClOl); 05067000 

^ LABL * BLANKS! 05067100 

JF NEXTsSTAR THEN IF TyPE^dOUBTYPE THEN 05067210 T 0004 

O ^ G i N , 05067220 T 0006 ^ 

>*CAN > 050675^0 T 0007 O 

TF NeXT=NUM AND NUMTYPE* INTYPe THEN 05067240 J 0007 

D BEGIN 05067950 T 0009 

° IF FNEXT.4 THEN 05067260 J OOlO O 

^ G I N t t ..r-. 05067270 T OOlO 

O 7n N 2b E I°« * TRUE ' «1° 9 - 05067275 C OOil 

^ IF TYpE^COMPTYPE THEN FLAG(176)I GO L I 05067280 T OO12 O 

END ' 05067290 T 0017 

■-) IF enext=8 then 05067300 t 0017 

^ oEGIN 05067^10 T00i7 O 

IF TY P E=REA L TYPE THEN TY P E*D UBTYpE 05067320 T 0018 

q E LSE IF TYPE^COMPTYPE THEN FLAG(177) I 05067330 T 0019 

G0 L '* 05067340 T 0022 O 

,. im END ' 05067350 T 0023 

r; „, END ' 05067360 T 0023 

^ FLAGflF TYPE=REALTYPE THEN 178 05067370 T 0023 O 

ELSE 177-RFAL(TYPE=C0MPTYPE)) I 05067380 T 0024 



O 

o 



r - y L* NcR*REAL(NCR.C30J3]?*0) + 3"677777» + NCR; SCN*1J SCAN ; 

U END ; 0"5nfi7/iP0 t orm v^ 

LOOPS DOUBLED*-FALSE? 

!F NEXT * ID THEN BfGjN F L G C 1 5 D ? GO TO ERROR END; 
^ FX1 * IF SINGLETOG THEN -FNEXT ELSE FNEXT} £109- 

IF TYPE * DOUBTYPE ThEN % FIX ARRAY TYPE OFR 
PUT(FXl»r,ET(FXl)&TYPErTOSUBCl3)J % BOUNDS ROUTINE 
O TF XREF ThEN BEGIN INFA * O&GETCFXl >C15I15I9]| 05069300 T 0042 ^ 

if type>o then infa,subclass*type; 
end? 
o xta «■ infb *■ name; 05070000 t 0048 c 

scan; 

if xref then 
o begin if infa, class a unknown then 05071200 t 0050 c 

infa,class«-if next = lparen then arrayid else varld} 
enterx(infb» infa)? 
'■■- end; 

if next = lparen then begin scan; d0ubled«-boundsc fx1) end else 
if type * "i then fl0gc103)} 

^ GETALLCFXl. INFA* XTa» INFO; 

IF TYPE > THEN 

IF BOOLEAN(lNFAiTYPEFlXED) THEN FLAGC31) ELSE 
° BEGTN 

IF TYPE > LOGTYPE THfN 
IF GETCFXt+2) <0 THEN 
^ BEGIN 

IF NOT DOUBLED AND INFA,CLASS=1 THEN 
BEGIN 
L. BUMPLOCALS; 

LENGTH*L0CALS + 1536? 
PUTfFXl+2, INFC & LENGTHC TQS I ZE ] ) ; 
O END 

END ELSE IF NOT DOUBLED THEN 

BEGIN IF INFC. SiZE > 16383 THEN FLAGC99); 
O PUT(FXl + 2»lNFC & (2 x I NFC , S I ZE ) [ ToS I ZE] ) ; 05080000 T 0086 <J 

end; 

PUT (FXiMNFA & ltTOTYpFJ & TYPE [ ToSUBCL ] ) ; 
^J END} 

IF INFA < THEN FLAGC39) ELSE 

IF TYPE ■ -2 THEN 
O BEGIN 

BAPCCINFA&FXHT0LINK]S1CT0CE3&R00T[T0LASTC])} 

IF B00LEAN( INFA.CE) THEN FUGC2); _.,_„„„ , „,.. 

O IF BOOLEAN(INFAiEQ) THEN 05086100 T 0103 t> 

BEGIN 

C0M[NEXTC0M,IR,NEXTC0M.IC3.LASTC «• A «• INFA.ADDR; 
^ B*GETC(RO0T),ADDR } 

SFTLlNK(A)} 

IF NOT RINGCHECK THEN 
^ BEGIN 

COMtPWROOT],ADDR*GETc(A>,ADDR ; 

PUTC(A,GETC(A)&B[TOADDR]&7rTOSUBCL3) } 



O END 



END ELSE 

PUTfFXl, iNFA & HT0CE3 & ROOT[ TOADDR] ) J .__ 

O IF BOOLEANCINFA, FORMAL) THEN FLAGClO); 05094000 T 0125 O 



END; 
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PRT(762) 



O 
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o 

o 
o 

u 
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o 

o 



IF ERRORToG THEN 
ERRoR? 

WHILE NEXT t COMMA AnD NEXT * SEMI AND NEXT * SLASH DO SCAN? 
IF NEXT s COMMA THEN BEGIN SCAN; Go TO LOOP END) 
IF DEBUrTOG THEN FLAGROUT InEC" D I MEN". "SI ON ".FALSE) ; 

end dimfnsion; 

procedure formalppfparmsreq, class)? value parmsreq* class? 
formalpp 

boolean parmsreq? real class; 

BEGIN , 

labfL loop* xit; 
if oebu0to6 then flagrout i nec " form"»"alpp %true ) i 

PARMS * 0; 

scan; 

IF NEXT * 10 THEN BEGIN FL0GC105); GO TO XIT END; 

IF CLASS e FUNjD THEN 

IF FUNVAR a THEN 

BEGIN 

IF TYPE > THEN 

IF FUNVAR + GLOBAlSEARCH(NAME) * THEN 

IF BOOL^AnC(T «. GET(FU N VAR)),TYPEFIXED) AnD type * T, SUBCLASS 

THEN FLAGC31); 
PUTCFUnVAR * FNEXT»GET(FNEXT) & varidctoclassd; 
end; 
fmew «• need(nnew «■ name* class); 

ENTERX(NAME.IF CLASS = FUNID THEN 

U6ET(FNEW)[l5M5t9] ELSE 1&GET( FNEW ) 1 15 : 15 I 5] ) ; 

scan; 

if next / lparen then 

if parmsreq then fl0g(106) else flse 
begin 

LOOP? 

SCAN; 

IF NEXT = ID THEN PARML I NK [ PaRMS «• PaRMS+13 «• FNEXT ELSE 
IF NEXT=STAR AND CLASS/FUNtD THEN PARMLI NKE PARMS«-PaRM5 + 1 ]«-0ELSe 
FL0GC107); 

IF xref then enterxcname»if next = STAR THEN ELSE 

0&6ET(FNEXT)rl5»15l9])» 

SCAN; 

if next « comma Then go to loop; 
if next * rpaRen then fLOgcios); 
scan; 



145 IS 



05096000 T 
05096100 T 
05097000 T 
05098000 T 
05098010 T 
05099000 T 
112 LONG* 
05100000 T 



START 



end; 

XlTi 



IF NOT ERRORTOG THEN DECLAREPARMSc FNEW ) ; 



IF DEBUCJOG THEN FlAGROUTImEC" FORM M »"ALPP ".FALSE) ; 

end formalpp; 

procedure fnds; forward; 

PRTC763) b ENDS 

PROCEDURE FUNCTION I 
PRTC764) a FUNCTION 

BEGIN 

REAL A.B»C»n LABEL FOUND ; 
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01000 

02000 

03000 

GMENT 

03010 

04000 

05000 

06000 

06100 

07000 

07020 

07030 

07040 

07050 

07060 

07100 

07160 

08000 

08100 

08200 

09000 

10000 

11000 

12000 

13000 

14000 

15000 

16000 

17000 

17100 

17150 

18000 

19000 

20000 

21000 

22000 

23000 

24000 

24010 

25000 

1 LONG. 

25100 T 



0127 
0128 
0129 
0133 
0135 
0137 
NEXT SEG 
0556 

0556 
0556 
0556 

********* 

0000 
0002 
0002 
0003 
0008 
0008 
0010 
0010 
0011 
0013 
0016 
0018 
0021 
0021 
0023 
0024 
0029 
0030 
0030 
0033 
0033 
0034 
0034 
0038 
0042 
0044 
0047 
0049 
0050 
0051 
0053 
0053 
0053 
0055 
0056 
0058 
NEXT SEG 
0556 



v_ 



c 
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26000 T 0556 



27000 T 
27100 T 



0556 
0556 
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^~- 
C 

c 
c 
c 
c 
c 
c 
c 
c 



c 



r • 



c 
c 
c 

c 



u 



•'_/' 



STACK(F42) 
STACKtF+3) 
STACKfF+4) 
STACKfF+5) 



=? A 

=? B 

= C 

= I 



o 



o 



FOUNDS 



o 



v> 



o 



END 



IF SPLJNK NFQ THEN BfGIN FLAG(5); ENDS; SEGMENTST ART* END? 
LABL «• BLANKS; 
FORMALPP(TRUE» FUNlD)? 
GFTALLCFNfW. iNFAi INFB» INFO' 
B*NUM!NTMl I 
WHILE A+UB DO 
BEGIN 

if c«.int[j«-real(booleanca + b) 
then go found ; 

IF InFB<C THEN BM.C36M1J ELSE 

END J 
IF lNf r BsI N TCI«-(A + B)x?«n THEN Go FOUND 
IF FALSE THEN 

IF BOOLEANCINTC I + U.INTSEEn) THEN BEGIN XTA«-INFB; 
IF TYPE<0 THEN TYpE* INFA , SUBCLASS& i [ 2 : 47 ? 1 3 J 
PUT(SPLINK * FNEW, I nFa & lCTOTYpFJ & TYPEC T0SUBCL3 ) ; 
PUTCFUNVAR* GETCFUNVaR) 

TYPEtTOSUBCL]); 

function; 



AND B00LEANtl022))]slNFB 



A*I, [361113 J 



; 



FLAG(167)ENDi 



& VARIDET0CLASS3 & UT0TYPF3 S 



PRT{765) 
PRT(766) 



O 
O 
O 



PRTC767) s 



o 
o 
o 

o 



PRTc770) ? CALL 



procedure statement; forward; 
statfment 

procedure assign; 

ASSIGN 

BEGIN 

LABEL XlTl 

f0ds*true j 
executable? 
scan; 

IF NEXT * NUM THEN B^GlN Fi,0GC109); GO TO XI T END; 
IF XREF THEN ENTErXcfNEXT^oRLABElIDCToCLASS]); 

emitnUmcfnext); 
scan; 

IF NEXT / ID THEN BEGIN FLOG(l05); GO TO XIT END; 
IF XREF THEN EnTERX(XTa»1*GET(FNEXT)[15I15I9])I 
EMITNCFNEXT); 

emito(std); 
scan; 

XITj 

assign; 

edure blockdata; 

N 

if splink neq Then begin flagc5); ends; segmentstart; end; 

labl * blanks; 

scan; 

SPLINK * -1; 

blockdata; 
edure call; 
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START 



END 

PROC 
BLOCKDATA 

REG T 
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fNd 

PROC 



05' 


128000 


P 


0000 


05 


L28100 


T 


0003 


05' 


129000 


T 


0003 


05 


[30000 


T 


0004 


05* 


130100 


T 


0006 


05 


30110 


T 


0007 


05 


.30115 


T 


0008 


051 


30l?0 


T 


0008 


05« 


30125 


T 


0011 


05< 


30130 


T 


0012 


05 


130135 


T 


0016 


05 


130140 


T 


0017 


05^ 


130145 


T 


0020 


05! 


130150 


T 


0020 


05 


31000 


T 


0025 


05! 


32000 


T 


0029 


05! 


133000 


T 


0032 


05^ 


134000 


T 


0035 


051 


135000 


T 


0037 


S t 


♦0 LONG* 


NEXT SEG 


05] 


36000 


T 


0556 


05] 


137000 


T 


0556 


05] 


138000 


T 


0556 


05" 


138100 


T 


0556 


Of s? 


'GMENT 


********** 


05j 


138110 


T 


0000 


051 


39000 


T 


0000 


05! 


40000 


T 


0001 


051 


41000 


T 


OOOl 


05- 


141500 


T 


0004 


051 


42000 


T 


0007 


051 


43000 


T 


0007 


051 


44000 


T 


0008 


051 


44100 


T 


0010 


051 


.45000 


T 


0014 


051 


[46000 


T 


0014 


051 


47000 


T 


0015 


05] 


47100 


T 


0016 


05! 


[48000 


T 


0016 


s 1 


7 L0NG» 


NEXT SEG 


051 


[49000 


T 


0556 


051 


150000 


T 


0556 


05] 


[51000 


P 


0556 


051 


51100 


T 


0560 


051 


52000 


T 


0560 


051 


53000 


T 


0561 


051 


154000 


T 


0562 


05j 


.55000 


T 


0562 
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BEGIN 



05156000 T 0562 



c 



c 



c 



c 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

c 



o 



u 
O 

o 



o 



PRTC771) = 



U 



O 



u 

o 
o 
o 
o 
o 

o 
o 
o 

o 



eods*true ; 

executable; 

scan; 

subref; 
end call; 
procedure common; 

COMMON 

COMMENT THIS PROCEDURE MAKES THE COM ENTRY FOR COMMON ITEMS AND SETS 

THE CE BIT IN BOTH THE COM AND INFO TABLES AND LINKS 

THE HEADS OF CHAINS; 
BEGIN 

Label loop, block; 

TYPE * "2J 

scan; 

TF NEXT * ID THEN 
BEGIN 

z * needc'.blnk,", blockid); 

if xref then enterxc"blank. w ,o&blockidi:toclassj); 

go to block; 

end; 
loop; 

if next * slash then fi.ogmio)? 

scan; 

if next a slash then z «. needc.blnk.** blockid) else 
begin 

IF NEXT i» ID THEN FL0G(105) ELSE 

3! forcf unique name by appending i to name (2nd char of word) 
begin z #• need(name&"1»c6u2;63»bl0ckid); 

if xref then enterxcnamefq&blockidctoclassj); 

scan; 
end; 
if next * slash then flogcuo); 

ENDl 

SCAN; 
BLOrKj 

IF (T«-GET(Z + 2)).ADINfO - THEN 

begin 

if nextc0m«-nextc0m+1>supermaxc0m then 

begin root*0; fatalm24) end 
flse r00t«-nextc0m ; 

putc(root»orheaderttoclass]&lctoce]&rootetoaddr]) ; 
baPccz) ; 

END ELSE 
BEGtN 

ROOT * T.ADINFO; 

COMtcT«.GETC(ROOT).LAsTC)»IR»T,IC],LlNK<-NEXTCOM+l * 

IF COM[PWROOT]<0 THEN FLAGc2) '> 
END; 

DIMENSION; 

BAPCCO&ENDCOMCTOCLASSl ) ; 

COMtPWROOT],LASTC*NEXTcOM ; 

PUTCT*GETC(R00T+1) + 2.GET(T)SR00T[ TOAD INFO]) ; 

IF NEXT * SEMI THEN GO TO LOOP; 
END COMMON? 

PROCEDURE FNDS; 



05156010 


T 


0562 


05157000 


T 


0563 


05J58000 


T 


0564 


05159000 


T 


0564 


05160000 


T 


0565 


05161000 


T 


0565 


05161100 


T 


0565 


05161110 


T 


0565 


05161120 


T 


0565 


05162000 


T 


0565 


05163000 


T 


0565 


TART Of SEGMENT 


********** 


05164000 


T 


0000 


05165000 


T 


0001 


05166000 


T 


0001 


05167000 


T 


0002 


05168000 


T 


0002 


05168100 


T 


0004 


05169000 


T 


0007 


05170000 


T 


0010 


05171000 


T 


0010 


05172000 


T 


0010 


05173000 


T 


0012 


05174000 


T 


0012 


05175000 


T 


0015 


05176000 


T 


0017 


05176500 


T 


0019 


05177000 


T 


0019 


05177100 


T 


0022 


05177200 


T 


0024 


05178000 


T 


0025 


05179000 


T 


0025 


05180000 


T 


0027 


05181000 


T 


0027 


05182000 


T 


0027 


05183000 


T 


0028 


05184000 


T 


0030 


05185000 


T 


0031 


05186000 


T 


0033 


05186100 


T 


0035 


05186200 


T 


0036. 


05187000 


T 


0040 


05188000 


T 


0041 


05189000 


T 


0041 


05190000 


T 


0041 


05191000 


T 


0042 


0519H00 


T 


0049 


05192000 


T 


0053 


05193000 


T 


0053 


05194000 


T 


0053 


05195000 


T 


0055 


05196000 


T 


0059 


05197000 


T 


0064 


05198000 


T 


0065 
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i P 


NEXT SEG 


05211000 


T 


0565 



149 



c 
c 

/ — ' 

c 

c 

c 

c 
c 
c 
c 
c 



c 
c 

o 
o 
o 
c 



BEGIN , »,. « , „ 05212000 T 0565 r 

O TF SPLlNK=0 THEN FLAGC184) ELSE X112- 05212005 C 0565 ( - 

RE6IN U12- 05212007 C 0568 

E0DS«-FALSF ? 05212010 T 0568 

^ IF U0GIFT0G THEN FUfiClOl); 05213000 T 0569 ( - 

LABL * BLANKS? 05213100 T 0571 

IF SPLINK < THEN EMITO(XjT) ELSE EMlTPAlRCO, KOM)? 05214000 T 0572 

O SFSMFNTCCADR+4) DTV ftt NSEfif TRUE* ED0C5? 05215000 T 0575 ^ 

FNn; 35112- 05216000 P 0578 

END ENDS? 05217000 T 0578 

O PROCEDURE ENTRY? 05218000 T 0579 C 

PRT(772) = ENTRY 

BEGIN 05219000 T 0579 

O REAL Sp; 05220000 T 0579 C 



STACK(F+2) 9 SP 



START OF SEGMENT ********** 150 



; - ] IF SPLINK s THEN FlAG(IH) ELSE 05221000 T 0000 ^ 

IF SPLINK s 1 THEN BEGIN ElX * 0; FLAG<4) END? 05222000 T 0002 

LABL * BLANKS? 05222100 T 0005 

^ ADJUST ? 05?22500 T 0006 ^ 

SP *- GETCSPLINK)? 05223000 T 0006 

FORMALPPC CT-SP, CLASS) = FUNlD# T); 05224000 T 0007 ^ 

U GFTALL(FNFW» INFA» INFB» INFO? 05225000 T 0010 ^ 

TF INFA.CLASS = FUNID THEN 05226000 T 0011 

PUTCFNEW, INFA & UT0TYPF3 & f SP, SUBCLASS )[ TOSUBCL ]> J 05227000 T 0013 

U PUT(FNEW + 2» INFC 8 ( ADR + 1 ) r TOBASE 3 ) ? 05228000 T 0017 ^ 

END ENTRY? 05229000 T 0019 

150 IS 22 LONG, NEXT SEG 6 ^ 

^ PROCEDURE EQUIVALENCE? 05230000 T 0579 - 
PRTf773) * EQUIVALENCE 

COMMENT THIS PROCEDURE MAKES ThE COM ENTRY FOR EQUlV ITEMS AND SETS 05230100 T 0579 

O THE EQ BIT IN BoTH ThE COM AND INFO TABLES AND LINKS 05230110 T 0579 C 

THE HEADS OF CHAINS? 05230120 T 0579 

BEGIN 05231000 T 0579 ^ 

O REAL Pf Q* R» S? 05232000 T 0579 C 

START OF SEGMENT ********** 151 
STACKCF+2) = P 
O STACK(F + 3) «» Q 
STACK(F+4) s R 
STACK(F+5) s S 

O BOOLEAN FIRST»PC0MM? 05232050 T 0000 
STACKfF+6) s FIRST 
STACKfF+7) a PCOMM 

^ LABEL XIT? 05232100 T 0000 

?F LOGIFTOG THEN FLAG(lOl)? 05233000 T 0000 

LABL * BLANKS? 05233100 T 0002 n 

^ DO 05234000 T 0002 ^ 

BEGTN 05235000 T 0003 

FIRST * FALSE? 05235500 T 0003 .-, 

^ SCAN? 05236000 T 0003 ^ 

if next / lparen then begin fl0gc106)? go to x i t end? 05237000 t 0004 

_, if nextcom*nextcom+i>supeRmaxcom then 05238000 t 0006 

o begin r00t*0? fatalc124) end 05238100 t 0008 ^ 

flse r00t«.nextc0m ? 05238200 t 0010 

PUTCfROOT^O&HEADERrToCLASS^&ROOTtTOADDR]) ? 05238300 T 0011 

U BAPC(O)? Q*0 ? 05239000 T 0014 U 

DO 05240000 T 0016 



C 
C 



O 



U 



c 
r 



^. 



begtn 



u 



Then begin floguos); go to xit end; 
enterx(name»orget(fnext)t 151 15»9])i 



BEGtN 



O 



\j 



W 



o 



v_y 



begtn 



SCAN) 

IP NEXT * ID 
IF XREF THEN 
FX1 «■ FNEXT; 
LENGTH * 0? 

scan; 

IF NEXT = LPAREN THEN 

IF GET(FXl), CLASS / ARRAYID THEN 
BFGIN XTA * GETCFX1+1); FL0GC112) FND> 
R * 01 P * II 

s * getcfxi+2),adtnfo; 

DO 



u 



u 



w' 






o 

o 
o 

O 
O 



then FUAGC 113); 



; 



END 



END; 



BEGTN 



BEGtN 



scan; 

if next * num or numtype * intype 

LFNGTH * LENGTH + PxfFNEXT-1); 

P * PxeXTRAINF0[(S + R).tR#(S + R),IC3 

r «. r»i; 

scan; 

until next * comma! 

if next * rparen then begin fl0g(l08)> go to x]t end; 

if r*-i then if r*r+getcfxi+2)»nextra*o then 

BEGIN XTA*GET(FXi + t)J FlAGCJF R>0 THEN 23 ELSE 24> ENID ; 

scan; 

if cinfa*get(fxm < then 

BEGIN XTA «- GETCFXl + t); FLAGC39) END ELSE 

IF INFA, SUBCLASS > LOGTYPE THEN LENGTH * 2*LENGTH I 

BAPCCINFA&FXHTOLlNKl&LENGTHtTQRELADDl&UTOEQHROOnTOLASTC]); 
IFfPCOMMfBOOLEANdNFA.CE)) OR BOOLEANf I NFA . EQ ) THEN 



BEGtN 



END 
END 



TF FIRST AND PCOMM ThEN BEGIN 

ELSF IF NOT FIRST THFN FIRST 

PUT(FXl,lNFA & ltTOEQJ)! 

COMfNEXTCOM, IR»NEXTC0M.IC].LASTC * A 

B«-GETCtROOT),ADDR J 

SETLlNK(A) ; 

IF NOT RINGCHECK THEN 

C0M[PWR00T3;ADDR«-GETC{A),A0DR I 
PUTC(A,GETC(A)&B[TOADDRl&7rTOSUBCL3) 



XTA«-GETfFXl + l); 

pcomm; 



FLAGC2) END 



INFA.ADDRI 



; 



END; 
END 



ELSE 

PUT(FXi,InFA & 1CT0EQ] & R00T[T0ADDR1)I 

IF LENGTH > Q THEN Q «• LENGTH; 

IF BOOLEANClNFAiFORMAL) THEN 

BFGIN XTA * GETCFXl+i); FLAG(ll) END; 

UNTIL NEXT * COMMA? 

IF NEXT * RPAREN THEN BEGIN FL0GC108); GO TO XIT ENDI 

SCAN! 

PUTCCR00T+1#Q) I 

BAPCCO&ENDCOMCTOCLASSl) ; 

COM[PWROOTl,LASTC*NEXTcOM ; 



05241000 


T 


0017 


05242000 


T 


0017 


05243000 


T 


0017 


05243200 


T 


0020 


05244000 


T 


0023 


05245000 


T 


0024 


05246000 


T 


0024 


05247000 


T 


0025 


05248000 


T 


0026 


05249000 


T 


0026 


05250000 


T 


0028 


05251000 


T 


0031 


05252000 


T 


0032 


05253000 


T 


0035 


05254000 


T 


0035 


05255000 


T 


0035 


05256000 


T 


0035 


05257000 


T 


0038 


05258000 


T 


0040 


05259000 


T 


0045 


05260000 


T 


0046 


05261000 


T 


0046 


05262000 


T 


0048 


05262200 


T 


0050 


05262300 


T 


0055 


05263000 


T 


0060 


05264000 


T 


0060 


05265000 


T 


0060 


05266000 


T 


0062 


05267000 


T 


0065 


05267100 


T 


0066 


05268000 


T 


0069 


05269000 


T 


0073 


05270000 


T 


0076 


05270100 


T 


0076 


05270200 


T 


0080 


05270500 


T 


0082 


05271000 


T 


0084 


05272000 


T 


0089 


05272050 


T 


0091 


05272100 


T 


0092 


05272200 


T 


0093 


05273000 


T 


0093 


05274000 


T 


0098 


05274200 


T 


0102 


05275000 


T 


0102 


05276000 


T 


0102 


05277000 


T 


0105 


05278000 


T 


0107 


05279000 


T 


0108 


05280000 


T 


0111 


05281000 


T 


0111 


05282000 


T 


0112 


05283000 


T 


0115 


05284000 


T 


0115 


05285000 


T 


0117 


05286000 


T 


0119 



v_ 



r 



^ 



c 



^_ 



L. 



r 



C 






C 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



^ ; 



^ 



^J 



u 



u 



o- 



w 



END UNTIL NEXT * COMMA* 
XlT} 
FND EQUtVALENCEJ 

PROCFDURE FXTeRNAU 
PRT(774) = EXTERNAL 

BEGTN 

IF SPLlNK < THEN FLAgC 12>? 

if logiftog Then flagcioi)? 
labl * blanks? 

DO 
BEGIN 

SCAN? 

IF NEXT i ID THEN FLOGfl05) ELSE 

BEGIN T * NEED(NAME#EXTID); 

IF XREF THEN ENTERXC NAME. 0&GET( T ) [ 1 5 » 15 » 9 ] ) ? 
SCAN? 
END? 

END UNTIL NEXT / COMMA! 
END EXTfRNAL? 
PROCEDURE CHAIN? 



151 IS 



PRT(775) s CHAIN 



05287000 T 
05287100 T 
05288000 T 
129 LONG* 
05289000 T 

05290000 T 
05291000 T 
05292000 T 
05292100 T 
05293000 T 
05294000 T 
05295000 T 
05296000 T 
05297000 T 
05297300 T 
05297500 T 
05297800 T 
05298000 T 
05299000 T 
05300000 T 
05300100 T 



0123 
0124 
0125 
NEXT SEG 
0579 

0579 
0579 
0581 
0583 
0583 
0584 
0584 
0584 
0586 
0588 
0591 
0592 
0592 
0592 
0593 
0593 



STACK(F+2) a Tl 



o 

o 

'■■J 

o 
o 

o 



PRT(776) s r,0T0S 

BEGIN 

STACKfF+2) s ASSIGNEDID 



BEGIN 

LABFL AGNt XlT? 

Real ti? 

DEFrNE FLG(FLGl) = BEGIN FLOG(fLGI)? GO TO XlT END#? 

EXECUTABLE* 

SCAm? 

ti ; 2? 

if false then 

AGN» IF GLOBALNEXT * COMMA ThEn FLGC28)? 
SCAN? 
IF FXPRCTRUE) > REALTYPE THEN FLGC102)? 

if r Ti «• ti - i) * o then go to agn? 

IF GLOBALNEXT t RPAREN THEN FLGC3)! 

EMITPAIR C37#K0M)! 

SCAN? 

IF GLOBALNEXT t SEMI THEN FL0GC117)? 

xi t i while globalnext t semi do scan? 
fnd chain? 

procedure gotos? 



05300150 

05300160 

START OF SEGMENT 

05300170 



T 0593 
T 0593 

********** 

T 0000 



152 
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05300180 T 
05300182 T 
05300184 T 
05300190 T 
05300210 T 
05300220 T 
05300230 T 
05300240 T 
05300250 T 
05300260 T 
05300270 T 
05300280 T 
05300290 T 
05300300 T 
05300310 T 
23 LONG* 
05301000 T 



0000 
0000 
0000 
0001 
0001 
0002 
0005 
0006 
0009 
0011 
0013 
0014 
0015 
0017 
0020 
NEXT SEG 
0593 



U 



o-' 



BEGIN 



label xit? 

rfal assignedid* 

eods*true ? 

executable? 

scan? 

if next 5 num then 

labelbranchcname* FAl.Se)? 
scan? 



05302000 T 0593 
START OF SEGMENT ********** 
05302100 T 0000 
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05302110 


T 


0000 


05303000 


T 


0000 


05304000 


T 


0001 


05305000 


T 


0001 


05306000 


T 


0002 


05307000 


T 


0003 


05308000 


T 


0004 



•u 



C 

c 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



w' 



O 
O 

o 

,' 1 

O 

— S 

o 

o 
o 



o 
o 
o 



GO TO ¥ IT J 

END; 

IF NEXT s ID THEN 
BEGIN 

ASSIGNEDID *• FNEXT; 

IF XREF THEN ENTERX (XT A» O&gET ( FNEXT) [15 «' 15 « 93 ) ; 

scan; 

IF NEXT * COMMA THEN FL0GU14); 

SCAN? 

IF NEXT * LPAREN THEN FL0G(106); 

no 

BEGtN 

SCAN} 

IF NEXT # NUM THEN FLOfiC109); 

EMlTVfASS|GNEDlD)J 

FMITNUMCFNEXT)? 

FMTTOfNEQD* 

labelbranchcname. true); 
scan; 
end until next * comma; 

IF NEXT * RPAREN THEN FLOGflOBU 

scan; 

emitpair(1» ssn); % cause invalid index termination 

EMITDESCLIT(10)J 
GO To XlTj 
END; 

IF NEXT / LPAREN THEN FLOGC106)* 

p * o; 

DO 
BEGIN 

scan; 

IF NEXT * NUM THEN BFGlN FL0GC109); GO TO X IT END; 
LSTT[P*P+13 «• NAMf; 

scan; 

END UNTIL NEXT * COMMA; 

IF NEXT * RPAREN THEN BEGIN FLOGC108); GO TO XIT END; 

Sc AN ; 

IF NEXT * COMMA THEN BEGIN FLOGC114); GO TO XIT END; 

scan; 

IT * P+ll % nONT LET EXPR Wl?E OUT LSTT 

IF EXPR(TRUE) > RfALTYPE ThEN FL0GC102); 

EMlTPAlR(jUNK» ISN); 

EMlTPAlR(irLESS); 

EMlTOPDCLlT(jUNK); 

emitpaircpkGrtr); 

emito(lor); 

emitopdclit(junk); 

EMlTLf 3); 
EMlTOfMUL); 

IF aDR+3xP > 4085 THEN BEGIN ADR+ADR+1 ; SEGOVF END; 
EMITOCBFC); 
EMITPAIRC1* SSN); 
EMITDESCLIT(IO); 

FOR I * 1 STEP 1 UNTIL P DO 

BEGIN 

j «• adr; labelbRanchcLstT[i 3» false); 



05309000 
05310000 
05311000 
05312000 
05313000 
05313200 
05313300 
05313600 
05314000 
05314300 
05314600 
05315000 
05315300 
05315600 
05316000 
05316300 
05316600 
05317000 
05317300 
05317600 
05318000 
05318200 
05318400 
05318600 
05319000 
05320000 
05321000 
05322000 
05323000 
05324000 
05325000 
05326000 
05327000 
05328000 
05329000 
05330000 
05331000 
05332000 
05333000 
05334000 
05335000 
05336000 
05337000 
05338000 
05339000 
05340000 
05341000 
05342000 
05343000 
05344000 
05345000 

05346000 
05347000 
05348000 
05349000 
05349100 
05349200 



0004 
0005 
0005 
0005 
0006 
0007 
0010 
0010 
0012 
0013 
0015 
0016 
0016 
0016 
0018 
0019 
0020 
0020 
0021 
0022 
0023 
0025 
0026 
0027 
0027 
0028 
0028 
0030 
0031 
0031 
0031 
0031 
0034 
0036 
0036 
0038 
0040 
0041 
0043 
0044 
0045 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0053 
0054 
0054 
0058 
0059 
0060 
0061 
0063 
0063 



c 
o 
c 



<■-> 
w 



c 
c 
c 



c 
c 
c 



c 
c 
c 
c 
c 

c 



^ 



\J 



■■~y 



O 



U 



U 



end; 

XlTi 



if adR-j e 2 then eMttocnop); 



it + 0; 



PRT(777) = T FS 



FNO GOTOSI 

PROCEDURE TFS? 

BEGIN RFAL TYPE, LOGIFADR* SaVELABL? 



STACK(F+?) a TYPE 
STACK(F+3) s UOGIFADR 
STACKCF+4) n SAVELABL 



O 



O 



vj 



O 



^ 



o 



o 



o 
o 

o 



eods*True ; 

EXECUTABLE? 

SCAN? 

IF NEXT * LPAREN THEN FL0G(106)? 

scan; 

IF TYPE * EXPR(TRUE) * COMPTYPE THEN FLAGC89); 
IF NEXT + RPAREN THEN FLOG(lOB); 
IF TYPE * LOGTYPE THEN 
BEGtN 

FMfTBCMt TRUE)? 

LOGIFADR * LAX? 

LOGIFTOG ♦ TRUE' EOStOr «• TRUE? 

SAVELABL * LABL? LABL «■ BLANKS; 

STATEMENT; 

LABL * SAVELABL? 

logiftog * false; eostog - false; 
fixB(logifadr); 

END ELSE 
BEGTN 

IF TYPE = DOUBTYPE ThEn 

BFGIN EMlTOfXCH); EMITqCDEl) END; 

scan; 

if next * num then fl0gc109); 

fxi * fnext; nxi «. name? 

scan; 

if next # comma then flqgc114)? 

scan; 

IF NEXT * NUM THEN FL0GC109); 
FX2 *■ FNEXT; NX2 * NaMe? 

scan; 

if next * comma then fl0gu14)? 

scan; 

if next / num then fl0rci09)j 

FX3 «• FNEXT; NX3 * NaMe? 

scan; 

ip F x? = fX3 then 

BEGIN 

fmitpaiRco.geQD; 
labeUbranch(Nxi# tRUf); 
labelbranchcnx3» false)? 

IF XREF ThEN ENTERX(NX2,0&LABELlDrT0CLASSl|>; 
END ELSE 

IF FXl = FX3 THEN 
BEGIN 



05349300 


T 


0065 


c 


05349400 


T 


0067 


05350000 


T 


0069 




05351000 


T 


0070 


1 ~ ""l 


05352000 


T 


0070 


'\.^s 


153 IS 73 LONG. 


NEXT SEG 6 




05353000 


T 


0593 


c 


05354000 


T 


0593 


Xw^ 


START OF SEGMENT 


********** 154 


,-*""N 








c 


05354010 


T 


0000 


o 


05355000 


T 


0000 




05356000 


T 


0001 




05357000 


T 


0001 


o 


05358000 


T 


0003 




05359000 


T 


0004 


o 


05360000 


T 


0007 


05361000 


T 


0009 




05362000 


T 


0010 


o 


05363000 


T 


0010 


05364000 


T 


0011 




05365000 


T 


0012 




05365100 


T 


0015 


o 


05366000 


T 


0016 




05366100 


T 


0017 




05367000 


T 


0017 


o 


05368000 


T 


0020 




05369000 


T 


0021 


s~~\ 


05370000 


T 


0021 


o 


05371000 


T 


0021 




05372000 


T 


0022 


>-— > 


05373000 


T 


0024 


o 


05374000 


T 


0024 




05375000 


T 


0026 


,— \ 


05376000 


T 


0028 


u 


05377000 


T 


0028 




05378000 


T 


0030 


o 


05379000 


T 


0031 


05380000 


T 


0033 




05381000 


T 


0034 


o 


05382000 


T 


0035 


05383000 


T 


0037 




05384000 


T 


0037 


/■~\ 


05385000 


T 


0039 


o 


05386000 


T 


0041 




05387000 


T 


0041 


o 


05388000 


T 


0042 


05389000 


T 


0043 




05390000 


T 


0044 


o 


05391000 


T 


0045 


05391200 


T 


0046 




05392000 


T 


0048 


-— \ 


05393000 


T 


0048 


o 


05394000 


T 


0050 


o 



u 



o 
o 
o 
o 
c 



emitpair(o»negl>? 

LABELBRANCHCNX2» TRUE)? 

LABELBRANCHCNXl* FALSE)? 

IF XREF THEN EnTERX(nX3»0&lABEL1DCTOCLASSJ); 
END ELSE 

IF FX1 s FX2 THEN 
BEGIN 

fmitpairco»leQU)i 

LABELBRANCHCNX3* TRUf)? 

labelbranch(nx1» false); 
if xref then enterx(nx2»0&labelld[t0class])? 
elsf 



END 
BEGtN 



END 



END; 
END} 
IFSj 



emito(dup); 
fmitpaiR(0,neqd; 

FMlTBC-1, TRUE)? 

EMlTPAiR(0»LESS); 

LABELBRANCH(NX3» TRUf)) 

LABELBRANCHCNXi* FALSE)? 

FIXB(LAX)J 

EMITOCDEL)? 

LABELBRANCH(NX2» FALSE)) 



o 

o 



PROCEDURE NAMEL? 
PRTC1000) = NAMEL 

BEGIN LflBFL N I M, X IT » ELMNT, WR AP J 



154 IS 



053 
053 
053 
053 
053 
053 

054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
054 
7 
054 



95000 
96000 

97000 

97200 

98000 

99000 

00000 

01000 

02000 

03000 

03200 

04000 

05000 

06000 

07000 

08000 

09000 

10000 

1 1000 

12000 

13000 

14000 

15000 

16000 

17000 

5 LONG, 

30000 T 



0050 
0051 
0052 
0053 
0056 
0056 
0057 
0058 
0059 
0060 
0061 
0063 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0071 
0072 
0072 
0072 
NEXT SEG 
0593 



o 
o 

o 
o 
o 



IF 
IF 
LAB 

Sr an; 

NIMI SnANj 

IF J * 
PUTCLA 
ELSE I 
BfGIN 

END? 
LSTTrL 
IF XRE 

Scan? 
elmnTj scan? 

LADRl 
IF (T 
GFTALL 

If xrf 

IF LST 
LSTT[L 
IF T = 
BFGIN 



GO TO XIT END? 
UNKNOWN THEN 



SPLlNK < THEN FLAGU2)? 
LOGIFTOG THEN fLArCIOI); 
L * BLANKS? 
IF NEXT t SLASH THFN FLOGCllO)? 

if next # id then begin flogcios)? 

CINFA «* GETCLADR2 «■ FNfXT) ). CLASS = 
DR2* iNFARNAMELlSTrTOCLASS]) 
F J * NAMELlST THFN 
XTA «• r,ET(LADR2 + 1)? 
FLAGC20)? 

STS * LADRl * 03 * NAME? 

f Then enterX(name*o&namelisT[Toclass])? 

IF NEXT * SLASH THEN FlOGCUO)! 

IF NEXT # ID THEN BEGIN FL0GC105)? GO TO XIT END* 
* LADRl + 1? 

«■ GET(FNEW * GeTSpACECFnEXT)),ClASS) > VARID THEN FLAG(48)? 
(FNEW.INFAt INFBf INFO? 
F THEN ENTERX< INFB»0&INFAC15?15J9] )) 

S * LSTS+1 a LSTMAX THEN BEGIN FL0GC78)? GO To XIT END ELSE 
STS] * NAME&lNFAiCLASNSUB[2?38J l0]R0[8:47» 1]? 

ARRAYJD THEN 
J * INFC.ADlNFOJ 
I * JNFC.NEXTRA? 
IF LSTS + I + 1 > LSTMAX THEN 
BEGIN FL0GC78); R TO XIT END? 
LSTT[LSTS * LSTS + 1 ] «• 0&iU?4?J6j % * DIMENSIONS 



05431000 
START OF SEGMENT 
05432000 
05433000 
05433100 
05434000 
05435000 
05436000 
05437000 
05438000 
05439000 
05440000 
05441000 
05442000 
05A42500 
05443000 
05/144000 
05445000 
05446000 
05447000 
05447500 
05448000 
05448500 
05449000 
05450000 
05451000 
05451100 
05451200 
05452000 



T 0593 
********** 153 



0000 
0002 
0004 
0004 
0007 
0011 
0014 
0016 
0018 
0020 
0021 
0021 
0023 
0026 
0028 
0032 
0033 
0037 
0039 
0042 
0045 
0049 
0050 
0052 
0053 
0055 
0057 



U 



C 



c 
c 

o 



o 



c 
o 



c 



c 
c 
c 



c 

c 
c 
o 



o 



v_> 



c 



u 

u 

o 
c 
o 
o 

u 

o 



o 



o 



&INFA.ADDR[7I37IH] X REL ADR 
&lNFC.BASFri8:33J 153 X BASF 
&INFC.SIZFC33J33H53J % SlZr 
FOR T * J STEP -1 UNTIL J - I + 1 DO 
LSTTtLSTS * LSTS + 1 ] * EXTRA I NfOj T. I R» T , I C ] J 
END ELSE BEGTN LSTT tLSTS*LSTS+l ] *0& ( j NFA . ADDR ) [ 7 i 37 ; 1 1 ] i 
TF BOOLEANf 1NFA.CE) THEN LSTT p LSTS] *LSTT r LSTS ] & I NFC , BASEt 1 8 » 33 115] 

&lNFC,SlZEt33»33U53 END? 
= COMMA THEN GO TO ELMNTl 
AND NEXT * SLASH THEN FL0GC115)? 
«• OJ 
*■ LADri; 

+ 2#LSTT)j 
GO TO NIM) 



ScANJ IF NEXT 
IF NEXT * SEMI 
LSTTtLSTS + H 
LSTT[0],t2»10J 
PrTSAVER«LADr2»lSTS 
IF NEXT / SEMI THEN 



X IT » 

END NAMFLJ 

PROCEDURE pause; 
PRTUOOl) a PAUSE 

IF DCINPUT THEN BEGIN XTA*"PAUSe "J FL0GC151) END ELSF 
BEGIN 

EODS^TRUE i 

if tsseditog then tssedcpause %2) i 

executable? 

scan; 

TF NEXT 3 SeMi ThfN F MfTL(0) ELSE 
TF NEXT = NUM THEN 
BEGfN 

emitnumcname); 
scan; 

END; 

EMITPAIR(33, KOM); 

EMlTOfDEL); 

END pause; 

PROCEDURE TYPlTcTYp,TMPNXT>; 
PRTC1002) a TYPIT 

BEGIN 

typf*typ; scan ; 

if next=16 then begin tmpnxt*16; function end else dimension ; 

end of typit ; 

!=typlt(comptype#tempnext) ## 

=TYPlT(LOGTYPE .tempnext) #• 

-TYPlT(DOUBTYPE.TEMPNEXT) #. 

sTYPTTCTNTYPE .TEMPNEXT) t, 

=TyPtT(RfALTYPe»TEMPNEXT) #J 



155 IS 



value typj real typ.tmpnxt ; 



PRTMOO3) = STOP 



DEFINE COMPLEX 
LOGICAL 

dOuplepRecision 
integers 

REALS 

procedure stop; 



BEGIN 



O 

o 
o 

o 



rfturnfound * true; 

eods*true ; 

executable; 

comment initial scan already done; 

emjtlci ); 

emitpairc16» std); 

emitpair(10» kom); 

EMlTpAIRC^, KOM); 

WHILE NEXT * SEMI DO SCAN; 



05/453000 T 
05454000 T 
05455000 T 
05456000 T 
05457000 T 
05458000 T 
05458400 T 
05458600 T 
05459000 T 
05460000 T 
05461000 T 
05462000 T 
05463000 T 
05464000 T 
05465000 T 
05466000 T 
96 LONG. 
05467000 T 



05467 
05468 
05468 
05468 
05469 
05470 
05471 
05472 
05473 
05«74 
05/475 
05476 
05477 
05/177 
05478 
05479 



too 

000 
010 
100 
000 
000 
000 
000 
000 
000 
000 
000 
000 

100 

000 
000 



05480000 
05480010 
05480020 
05480040 
05481000 
05482000 
05483000 
05484000 
05484500 
05485000 

05486000 
05486100 
05486H0 
05487000 
05488000 
05/189000 
05490000 
05491000 
05492000 
05493000 



T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 
T 
T 

T 
T 
T 
T 
T 



0059 
0061 

0062 
0063 
0068 
0073 
0077 
0080 
0082 
0084 
0087 
0088 
0091 
0093 
0094 
0095 
NEXT SEG 
0593 

0593 
0596 
0599 
0599 
0602 
0602 
0603 
0605 
0607 
0608 
0609 
0609 
0609 
0610 
0611 
0611 

0611 
0611 
0613 
0617 
0617 
0617 
0617 
0617 
0617 
0617 

0617 
0617 
0619 
0620 
0621 
0621 
0621 
0622 
0623 
0624 



c 



c 



L- 



n 



\^ 



C 



c 
c 
o 
o 
o 
o 

o 
o 
o 

o 



( , 



L. 



w> 



END STOP? 

procedure return; 
prtu004) = return 

begin label exit; 



05494000 T 0627 
05495000 T 0627 



REAL T, XJTCODEJ 



START 



o 
o 

Q 



u 



c 

o 
o 



STACK(F+2) = T 
STACKfF+3) = XITC0DE 



rfturnfound 

FODSt-TRUE i 
EXECUTABLF? 



true; 



1 beg 

% VOID 
BEG 



END 
IF 



?N 



Scan; 

IF SPLiNKsO OR SPLINK=1 ThfN 

BEGIN XTA* m RfTURN»J FL0g(153)I 

tf next = semi Then 



GO EXIT END 



IF CT * GETfSPLlNK))ICLASS * FUNID THEN 



IN 
EMI 
IF 
XIT 
ELS 

ADR > 
BFG 
EMI 
EMI 
EMI 
EMI 
EMI 
EMI 
EMI 
EMI 
GO 



LOGTYPE THEN EMI TPA I RC JUNK* STD); 



segovf end; 

* F + 2 



o 



END 



END; 

IF 
IF 
IF 
BFG 

END 
EMI 
EMI 
EMI 
EMI 
EMI 

EXIT* 

Return; 



tvcfunvar); 
t, subclass > 

code * rtn; 

e xitc0de * xit; 

4077 THEN 
IN ADR *■ ADR+l; 
T0PDCLITC1538); 

TPAIRC3* BFO; 
TPAIRC10» KOM); 

TOCXITCODE); 
T0PDCLITC16); 

tpairc1 * sub)j 
tpairc 16» std); 

tocxitcode)* 
to exit; 

labeUMom = o then flogcH5>; 

FXPRCTRUE) > RFALTYPE TwEN FLAG(10?)I 

expresult = NUMCLaSS ThfN 

IN TF XREF THEN ENT F RX( fXPV ALUE . Q&LABEL I DC T0CLASS3 ) ? 

ADR * adr-i;emtT L cexpvalUe-i) 

ELSE 
TPAIRC 1 # SUB); 

topdclitclabelmom); 

TOCMKS); 

TLC9JJ 

T0PDCLITC5); 



05496000 

OF SEGMENT 

05497000 



T 0627 

********** 

T 0000 



156 



v, 



c 



PRTC1005) s 



O 



PROCEDURE IMPLICIT ; 
IMPLICIT 

BEGIN 

Real ri*R2»R3.r4 
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05497100 T 
05497110 T 
05498000 T 
05498100 T 
05498200 T 
05499000 T 
05499100 T 
05499110 T 
05500000 T 
05501000 T 
05502000 T 
05503000 T 
05504000 T 
05505000 T 
05506000 T 
05507000 T 
05508000 T 
05509000 T 
05510000 T 
05511000 T 
05512000 T 
05513000 T 
05514000 T 
05515000 T 
05516000 T 
05517000 T 
05518000 T 
05519000 T 
05520000 T 
05520100 T 
05521000 T 
05521100 T 
05521200 T 
05521400 T 
05521600 T 
05522000 T 
05523000 T 
05524000 T 
05525000 T 
05526000 T 
05527000 T 
05528000 T 
05529000 T 
50 LONG. 
05529100 T 



05529105 

05529110 

START Of SEGMFNT 



0000 
0001 

0002 
0003 
0003 
0003 
0003 
0005 
0009 
0009 
OOlO 
0010 
0012 
0013 
0013 
0016 
0017 
0018 
0019 
0021 
0022 
0023 
0024 
0025 
0025 
0026 
0027 
0028 
0031 
0031 
0033 
0035 
0036 
0039 
0041 
0042 
0043 
0044 
0045 
0045 
0046 
0046 
0047 
NEXT SEG 
0627 



c 

c 
c 
c 
c 
c 

c 
c 

c 
c 

c 

c 
c 



T 0627 

T 0627 

********** 



157 



n 



O 



C 



O STACK(F+2) - Rl 

-^ STACK(F + 3) = R2 

STACKfF+4) = R3 

STACK(F+5) = R4 

°' LabfL R*a»x>l ; 



C 



TF N0t(LA5TNeXTs42 OR LASTNfXT=1 OOO OR LASTNeXT*30 SSliO- 

OR LASTNfXT=16 OR LaSTNeXT = 11) XllO- 

U THEN BF(WN FLORC t8l >* FILfTOG*TRUE? GO X END t 05529140 T 0004 C 

R« EOSTOG*ERRORTOe*TRUEl FI LfT0G*FALSE t 

MOVfW( ACCUMr33,ACCUM[23,0 # 3)? ScAN* ERRoRTOG*FALSE $ FI LFTOG*TRUF J -_.,„, CiJ , „«,„ 

U IF - R1*!F R3«-NEXT=18 THEN TNTID ELSE IF R3 = 26 THEN REALID ELSE OR 055?9??0 T 0014 C 

(IF R3M0 THEN DoUBTYpE ELSE IF R 3 =l9 THEN LOGTYPE ELSE IF R3= 

6 THEN COMPTYPE ELSE ) [ TOSUBCL 1=0 THEN 

° -„ u „, CrAkl . BEGIN fLOGflBZ)! GO X END i 0552^50 T 00^6 C 

SCN*2J SCAN J 

IF NFXT = STAR THEN IF R3*10 THEN 
° BEGIN SCAN I 05529280 T 0031 C 

IF NEXTsNUM AND NUMTyPF" INTYPE THEN 
BEGIN 
IF FNEXT*4 THEN BEGIN IF R3 = 6 THFN FLAGC176); GO L END * 

if fnextss then 

■■'") BEGIN U55PV330 T 0039 

^ IF R3=26 ThFN Rl*0&00UBTYPErT0SUBCU3 05529340 T 0040 C 

ELSE IF R3*6 THEN FLAGC177) ; 
GO L ; 
^ END f 

END I 
FLAGdF R3 = 26 THEN 178 eLSf 1 7/-ReAL( R3 = 6) ) ; 

° L* NCR*REAL£NCR.r30l33*0>+3"67T777w+NCRl SCNMJ SCAN i 05529400 T 0049 C 

END ; 

IF nEXT#LPAREN THEN BEGIN FlOG(i06)* GO X END ; 
U A» SCAN? R4«-ERR0RCT J 

IF R?*NAME.[12I61<17 OR (R2>25 AND R2<33) OR CR2>4l AND R2<50) 
OR R2>57 OR NAME,C18I30]|»" " THEN FLAGU79) i 
^ SCAM J 

IF NEXT#MINUS THEN 



BFGIN IF ERR0RCT=R4 THFN TTPFC IF R2# M 0» THEN R2 ELSE l?J«-Rl END 
O ELSf BEGIN 



SCAN ; 

IF R3*-NAMF,[12J6]<17 OR (R3>25 AND R3<33) OR CR3>4l AND R3<50) 
^ OR R3>57 OR NAME , r 18 » 30 3 9* «» •» THEN FLAGC179) } 

IF R3 LEQ R2 THEN FLaG(180) j 

IF ERR0RCT-R4 THEN FOR R2*R2 STEP 1 UNTIL R3 DO 
'^ BEGIN 

IF R2>25 AND R2<33 THFN R2*33 ELSE IF R2>A1 AND R2<50 

i~\ then R2+50 ; uD^y^&u t uuvo _ 

^ TlPEflF R2*»0" THFN R2 ELSE 123-R1 I 05529570 T 0098 O 

END I 
SCAN t 

^ . E ND JL» . n 05529600 T 0104 O 

IF NEXT=COMMA THEN GO a i 

IF NFXT^RPAREN THEN BEGIN FL0G(l08); GO X END ; „„,„,„ . U1UD 

U SCAN? IF N E XT=cOMMa THEN GO R i 05529630 T 0108 O 

IF NEXTjiSEMf THEN BEGIN FL0p,ni7)l GO X END * 

if splink>i then 

j ^ BFGIN 

IF 800LEAN(TYPEit2Jl]) THEN IF GET( SPL I NK > , CLASSsFUN I D THFN 



05529120 


T 


0000 


05529130 


P 


0000 


05529131 


C 


0002 


05529140 


T 


0004 


05529210 


T 


0007 


05529215 


T 


OOlO 


05529220 


T 


0014 


05529230 


T 


0018 


05529240 


T 


0022 


05529250 


T 


0026 


05529260 


T 


0028 


05529270 


T 


0029 


05529280 


T 


0031 


05529290 


T 


0032 


05529300 


T 


0034 


05529310 


T 


0035 


05529320 


T 


0038 


05529330 


T 


0039 


05529340 


T 


0040 


05529350 


T 


0042 


0552.9360 


T 


0045 


05529370 


T 


0046 


05529380 


T 


0046 


05529390 


T 


0046 


05529400 


T 


0049 


05529410 


T 


0054 


05529420 


T 


0054 


05529430 


T 


0058 


05529440 


T 


0059 


05529450 


T 


0064 


05529460 


T 


0068 


05529470 


T 


0069 


05529475 


T 


0070 


05529480 


T 


0074 


05529490 


T 


0077 


05529500 


T 


0077 


05529510 


T 


0082 


05529520 


T 


0087 


05529530 


T 


0089 


05529540 


T 


0092 


05529550 


T 


0092 


05529560 


T 


0096 


05529570 


T 


0098 


05529580 


T 


0101 


05529590 


T 


0104 


05529600 


T 


0104 


05529610 


T 


0104 


05529620 


T 


0105 


05529630 


T 


0108 


05529635 


T 


0110 


05529640 


T 


0112 


05529650 


T 


0113 


05529660 


T 


0113 



o 
O 



o 
o 
o 
o 
o 



o 
o 

C) 



i ; 



C 



3 






\J 



^ 



U 



BEGIN 

INFOtSpLINK,TR»SPLlNK.IC3|SUBCLASS*R3*TlPEt IF R3*GET< 
SPLINK + i),rl256]js»0" THEN R3 ELSE 12], SUBCLASS ? 
INF0[FUNVAR.IR*fUnVAR.IC],SUBCLASS*R3 I 
END J 
IF Rl*6ET(SPLlNK+2)<0 THEN 

FOR R2*R1,NEXTRA-1+RUR1,ADINF0 STEP -1 UNTIL Rl DO 
IF R3*PARMLINK[R2-Rl+l]/0 THEN 
BEGIN 
EXTRA!NF0CR2,lRiR2,!C],SUBCLASS*R4*TlPE[IF R4* 

getcr3+1).c12:6]# m 0» then r4 else 12] 
.subclass j 
inf0[r3,ir.r3,ic],subclass*r4 ; 

end ; 



END J 
XI WHILF NFXTi*SEMl DO 
END Of IMPLICIT > 



scan; filetot,*-faLSe ; 



u 



PROCEDURE SUBROUTINE? 
PRT(1006) a SUBROUTINE 

BEGIN 

IF SPLINK NEQ THEN BEGIN FLAGC5); ENDS? SEGmENTSTART ; ENDJ 

labl * blanks; 
formalppcfalse* SUBRlD); 
SPLINK * fnew; 
END SUBROUTINE? 

PROCEDURE MEMHANDLER(N); VALUE NJ REAL N ; 
PRTC1007) * MEMHANDLER 

BEGIN 
REAL A J 



157 IS 



05529670 T 
05529680 T 

05529690 T 
05529700 T 
05529710 T 
05529720 T 
05529730 T 
05529740 T 
05529750 T 
05529760 T 
05529770 T 
05529780 T 
05529790 T 
05529800 T 
05529810 T 
05529820 T 
05529830 T 
164 LONG. 
05530000 T 

05531000 T 

05532000 P 

05532100 T 

05533000 T 

05534000 T 

05535000 T 

05535010 T 



0116 
0117 

0120 
0126 
0131 
0131 
0133 
0140 
0142 
0143 
0145 
0150 

0152 
0156 
0157 
0157 
0161 
NEXT SEG 
0627 

0627 
0627 
0631 
0631 
0632 
0633 
0633 



c 
c 
c 



STACKCF+2) - A 



05535020 

05535030 

START Of SFGMENT 



T 0633 
T 0633 

********** 



156 



C 

o 
o 
o 
o 
o 



TRUE) J 



end ; 

THEN 



LABrL L1»L2»L3,XIT ; 

IF nEBUGTOG THFN FLAGR0UT?Ne(" MEMHA","NDLER 

IF N LEQ 2 THEN 

BEGIN % FIXED-1* VARYING=2. 

N*IF Nsl THEN 6 ELSE ; 
LI' SC an ; 

tf next/id then begin FLOGrios); go xtT 

IF ( A*GETf 6ETSP ACE (FNEXT))). CLASS* ARRAY ID 

BEGIN FL0GC35)* Go X H END ; 
IF XREF THEN EnTErX(XTa»0&AC15*15*9]) i 

if booleanca.eq) or booleanca, formal) then flagci69) 
else begin 

EMlTo(MKS); EMlTpAlR(A,ADDR#L0D); EMITL(N) i 
EMITV(NEED(",MEMHR M »INTRFUNID5) ; 
END > 

scan; if nextsComma then go li j 

END 
ELSf IF N*3 then 

BEGIN 3! AUXMEMED FUNCTION OR SUBROUTINE, 
SCAN ; 

if nfxt*id then bfgin flogcios); go xit end ; 
if gftcfnext+ixgetcsplink+d then 
bfgin flogf 170); go xit end ? 

PUTCSPLlNK»GFT(SPLlNK)&ltTOADJ]) t 

IF XREF THEN ENTERXC XTA » O&GETCFNFXT ) [ 1 5 t 1 5 J 9] ) ; 



SCAN 



05535040 T 0000 

05535045 T 0000 

05535050 T 0002 

05535060 T 0002 

05535070 T 0003 

05535080 T 0006 

05535090 T 0006 

05535100 T 0011 

055351)0 T 0013 

05535120 T 0015 

05535130 T 0018 

05535140 T 0020 

05535150 T 0021 

05535160 T 0024 

05535170 T 0026 

05535180 T 0026 

05535190 T 0028 

05535200 T 0028 

05535210 T 0030 

05535220 T 0031 

05535225 T 0031 

05535230 T 0034 

05535235 T 0037 

05535240 T 0038 

05535250 T 0041 



c 
c 






Q 



r i 



c 
c 

c 
c 
o 
o 

c 

c 



I 1 



END 05535420 T 0045 

^ ELSE BEGIN X RELEASE: 05535430 T 0045 C 

L2» scan ; 05535440 t 0045 

IF NEXT*ID THEN BEGIN FL0GC105)! GO XIT END i 05535450 T 0046 

^ if (a«-geTcgetspace(FNext))),class=arrayid then 05535450 t 0049 C 

BEGIN 055.35470 T 0051 

IF BoOLEANfA.EQ) OR BOOLEAN* A, FORMAL) THEN Fl«AGri69) 05535480 T 0052 

ELSE BEGIN 05535490 T 0054 C 

EMITO(MKS); EMITPAIR(A,ADDR»L0D) ; 05535500 T 0055 

EMITPAIR(1»SSN) i 05535510 T 0058 

^ EMITV{NEEDC»,MEMHR»MNTRFUNID}) i 05535520 T 0059 <~ 

END ? 05535530 T 0060 

L35 IF XREF THEN ENTERX (XTA # OSA [ 15 : 15 J 9 J ) J 05535540 T 0060 

^ END 05535550 T 0063 C 

ELSE IF A.CLASS>BLOCKlD OR A , CLASS<LABEL ID THEN 05535560 T 0063 

BEGIN FL0G(l7l)J GO XIT END 05535570 T 0068 

^ ELSE BEGIN 05535575 T 0070 C 

EMiTPA!RCA,ADDR»LOD)f EMI TPAI R( 38»K0M) ; 05535580 T 0071 

EMiTOfDFL); GO L3 ; 05535585 T 0073 

<sJ END i 05535590 T 0074 C 

scan; if next=comma then go L2 ; 05535595 t 0074 

END J 05535600 T 0076 ^ 

^ XJTHF nEBUGTOG THEN FLAGROUTi Ne( " MEMHA", "NDLER %FALSE> i 05535605 T 0076 C 

END OF MEMHANDLER i 05535610 T 0079 

158 IS 84 LONG, NEXT SEG 6 

^ PROCEDURE STATEMENT? 05536000 T 0633 C 

BEGIN LABEL DOLl» XlT; 05537000 T 0633 

START OF SEGMENT ********** j 59 

^ RFAL TEMPNEXT i 05537100 T 0000 



STACKfF^s) = TEMPNEXT 
O STACK(F+3) = ENDTOG 



Boolean endtog; xi i 2- 05537200 c 0000 



ry 



o 



n 



C 



do scan until next * semis 05538000 t 0000 

^ if nextsid then assignment else if next leq rsh1 then 05539000 t 0001 

^ case(tempnext-next) of 05540000 t 0004 c 

BEGIN 05541000 T 0006 
PRT(IOIO) - *CASE STATEMENT DESCRIPTOR* 

^ FL0G(16)J 05542000 T 0006 O 

ASSIGN; 05543000 T 0008 

I0C0MMANDC4); ^BACKSPACE 05544000 T 0009 

^ blockdata; 05545000 t 0010 O 

CALL; 05546000 T 0011 

^ COMMON; 05547000 T 0012 

^ COMPLEX; 05548000 T 0013 O 

BFGIN EXECUTABLE; SCAN END; 3! CONTINUE 05549000 T 0015 

I0C0MMAND{7); % DATA 05550000 T 00l6 

^ BEGIN SCAN; TYPE » -1? DlMpNSlON END? 05551000 T 0017 O 

doublepRecision; 05552000 t 0020 

bfgtn ends; endtog»=tRue? scan end; sii2" 05553000 p 0022 

^ FlLECONTROL(l)* 2SENDFILE 05554000 T 0024 O 

ENTRY; 05555000 T 0025 

EQUIVALENCE? 05556000 T 0026 

^ EXTERNAL? 05557000 T 0027 O 

BEGIN TYRE «• -U FUNCTION END; 05558000 T 0028 

GOTOS; 05559000 T 0030 

■^ INTEGERS; 05560000 T 0031 

LOGICAL? 05561000 T 0033 



o 



o 

o 



I s 



c 



NAMEL* 05562000 T 0035 ^ 

O PAUSE* 05563000 T 0036 ^ 

I0C0MMANDC23J SPRINT 05564000 T 0037 

I 05565000 T 0038 

^ IOcOMMaNDC 3); XPuNcH 05566000 T 0038 

IOCOMMaND(O)? XRfAD 05567000 T 0040 

_ RFALSJ 05568000 T 0041 

U RETURN; 05569000 T 0043 ( ^ 

FlLECONTROL(O); SRfWiND 05570000 T 0044 

BFGIN SCAN? STOP fND; 05571000 T 0045 

O subroutinf; 05572000 t 0047 C 

fOCOMMANDd); SWRITE 05573000 T 0048 

FTLEC0NTR0U7); SCLOSE 05573100 T 0049 

O FTLEC0NTR0LC6); SLOCK 05573200 T 005l ! ^ 

FTLEC0NTR0L(4); XPuRfiE 05573300 T 0052 

IFSJ 05574000 T 0053 -. 

U FORMATER; 05575000 T 0054 ^ 

CHAIN* 05575100 T 0055 

,~ MEMHANDLER(l) ; XFIXeD 05576000 T 0056 

^' MFMHAN0LERC2) * ^VARYING 05576100 T 0058 

MEMHANDLERC3) J SAUXmEM FOR SUBPROGRAMS 05576200 T 0059 

MEMHANDLERC4) ; XRELEASE 05577000 T 0061 

^ IMPLICIT J 05577100 T 0062 ^ 

END ELSE IF NEXT*EOF THEN Go XlT ELSE BEGIN NEXT*OJ FL0GC16) END I 05578000 T 0063 

_ START OF SEGMENT ********** 160 ^ 

^ 160 IS 44 LONG. NEXT SEG 159 C 

USTNEXT,E33I15J*TEMPNFXT ; 05578100 T 0067 

j if not eNdtog then if splink=o then splink;«i? ?U2- 05579000 p 0068 

O FNDTOGIaFALSEI 3J112- 05579100 C 0071 ^ 

IF LABL * BLANKS THEN 05580000 T 0072 

^ BEGtN 05581000 T 0073 „ 

'■U IF DT / THEN 05582000 T 0073 C 

BEGIN 05583000 T 0074 

D0L1» IF LABL s DOLAB[TEST * DT] THEN 05584000 T 0075 

O BEGIN 05585000 T 0076 <-> 

EMtTBCDOTfSTcDT]* FALSf)? 05586000 T 0077 

F!XB(D0TESTrDT3 ( ADDR)> 05587000 T 0078 ^ 

U IF DT * DT-1 > THEN GO TO DOLU 05588000 T 0079 ^ 

END ELSE 05589000 T 008p 

WHILE TEST * TeST-i > DO 05590000 T 0082 - ^ 

O IF DOLABtTEST] * LABl THEN FLAGC14); 05591000 T 0085 C 

END; 05592000 T 0088 

LABL «• BLANKS; 05592100 T 0088 ^ 

O • END; 05593000 T 0088 ^ 

05594000 T 0088 

IF NEXT * SEMI THEN 05595000 T 0088 - 

O BEGIN 05596000 T 0089 C 

FLAGC 1 173 J 05597000 T 0090 

do scan Until next=semi or next^eof ; 05598000 t 0090 

O END; 05599000 T 0093 C 

ERRORTOG ♦• FALSE! 05600000 T 0093 

EOSTOG *■ TRUE; 05601000 T 0094 

O XlT} 05602000 T 0095 C 

END STATEMENT; 05603000 T 0096 

159 IS 99 LONG* NEXT SEG 6 

O BOOLEAN STREAM PROCEDURE FLAGLAST (BUFF. ERR ) i 05603010 T 0633 C 
PRT(lOll) = FLAGLAST 



u 



c 



L 

C\ BFGIN „ n n 05603020 T 0633 

U LOCAL A? St*ERR? 8C IF Sc*» " THEN JUMP OUT ; S I -S I + 1 ? TALLY«TALLY+ 1 > ? 05603030 T 0634 { ~- 

A + TAl.LY? Si*L0C AJ Sl*Sl+7 ; 05603040 T 063? 

if s c <»8» then 05603050 t 0637 

'-' bfgin tallym? flagi.ast«.tally ? 05603060 t 0638 ^~- 

di*buffjds*fl6 llt"last syntax error occurred at sequence number "? 05603070 t 0639 

DS*-LIT»»'M SUERR? DS«-8 ChR? DS-L I T mmm J 05603080 T 0645 

'^ 05*3? LIT « »; X5t0- 05603081 C 0647 C 

DS*32 LIT " »; 35510- 05603082 C 0651 

EnD 05603090 T 0655 

U END FLAGLAST J 05603100 T 0655 { - 

PRTdOl?) = *LIST» LABE|.» OR SEGMENT DESCRIPTOR* 

INTEGER PROCEDURE FIELDCXjj VALUE X{ INTEGER X? 05603H0 T 0657 

^ FtELDMF X<10 THEN 1 ELSE IF X<100 THEN 2 ELSE IF X<1000 THEN 3 eLSf IF 05603120 T 0657 C 

X<10000 THEN 4 ELSE IF X<100000 THEN 5 ELSE IF X<1000000 THEN 6 ELSE 7? 05603130 T 0663 

FORMAT fOCIC/ "NUMBER OF SYNTAX ERRORS DETECTED = "» I * » ", "t X*i 05604000 T 0675 



PRTC1013) - E0C1 



START Of SFGMENT ********** 161 ^ 






"NUMBER OF SEQUENCE ERRORS DETECTED = "#!*,","), 05605000 T 0675 

^ rOC?("PRT SiZE = %!*i»I TOTAL SEGMENT SIZE = ".I** 05606000 T 0675 ^ 

" WORDS? DISK SIZE = ",I*»" SEGSJ NO. PRr,M, SEGS - ",t*, 05607000 T 0675 

".">» 05607010 T 0675 ^ 

^ F0C3C"ESTlMATED CORe STORAGE REQUIREMENT s »,is» WORDS;", 05608000 T 0675 ^ 

" COMPILATION TIME * ",I*," MfN, " » I * , " SECS?«, 05608010 T 0675 

" NO, CARDS = »»T*»"i">« 05608020 T 0675 

^ F0C4("ESTIMATED CORE STORAGE REQUIREMENT = »»!*»" WORDS?" 05608030 T 0675 ( - 

" COMPILATION TIME b ",I*»" SECS? NO, CARDS = »#!*,", «)» 05608040 T 0675 

F0C«5("NUMBER OF TSS WARNINGS DETECTED - "»I*»",«) ? 05608050 T 0675 

^ 161 IS 106 LONG* NEXT SEG 6 C 

COMMENT MAIN DRIVER FOR FORTRAN COMPILER BEGINS HERE? 05609000 T 0675 

RTI * TlMECDI 05610000 T 0675 

O INITIALIZATION? 05611000 T 0677 

DO STATEMENT UNTIL NEXT - EOF? 05612000 T 0677 

IF NOT FNDSEGTOG THEN IF SPUNK NEQ 35 1 12- 05612100 P 0679 

O THEN BEGIN XTa;=BLANKSJ FLAGC5)? ENDS END? £112- 05612200 C 0681 C 

WRAPUP? 05613000 T 0684 

POSTWRAPUPJ 05613900 T 0685 

O IF TIMETOG THEN IF FIRSTCALL THEN DATIME? 05614000 T 0685 O 

IF NOT FIRSTCALL THEN 05615000 T 0688 

BEGIN 05616000 T 0689 

J WRITf(RTTF»E0C1»FIELD(ERR0RCT)»ERR0RCT,IF SFQERRCTbO THEN 99 ELSF 05617000 P 0689 O 
PRTC1014) = *LIST» LABEL* OR SEGMENT DESCRIPTOR* 

i 5iFlFLD(SEQERRCT-l)»SEQERRcTM) ? 05618000 T 0700 

^ IF WARNED AND NOT DClNPUT THFN WRITE(RlTE»E0C5,FIELD(WARNC0UNT)» 05618100 T 0709 O 
PRT(1015) = *LlST, LABELt OR SEGMENT DESCRIPTOR* 

WARNcOUNT) ? 05618110 T 0719 _ 

■-' WRlTF(RtTF»E0C2,FIELDfPRTS),PRTS,FlELD(TSEGSZ),TSEGSZfFlELDcDAL0C-l), 05619000 T 0723 ^ 
PRTm016> - *LlST, LABEL. OR SEGMENT DESCRjPToR* 

DALOC-1 »FIELD(NXAVil)»NXAViL) ? 05619010 T 0736 ~ 

^ IE Ci+(TlMEM>-RTl)/60 > 59 THEN Wr 1 7 E(R I TE» E0C3* F IELDC 64*EST I MATE ) » 05619020 T 0747 O 
PRT(1017) = *LIST. LABE|.» OR SEGMENT DESCRIPTOR* 

64xESTImATE»FIElD(C1 DJV 60), CI DlV 60.FIELDCC1 MOD 60), CI MOD 60» 05619030 T 0757 

O FIELD(CARDC0UNT-13*CARDC0UNT-1) ELSE WRlTE(RlTE»E0C4»FIEuD(ESTlMATE 05619040 T 0771 O 
PRTC1020) = *LIST» LABEL* OR SEGMENT DESCRIPTOR* 

x64),ESTIMATEx64*FIELDCCl),Cl»FlELDCCARDCOUNT-l)tCARDC0UNT-l ) ? 05619045 T 0785 

O IF ERRORCT>0 THEN IF FLAGLAST(ERRORBUFF»LASTERR) THEN WRITECRITE.15* 05619050 P 0802 O 

ERR0RBUFF[*3) ; 05619100 T 0809 



u 



O 



O 

O 



u 

o 

o 
o 
o 

G 



u 



i _> 



PRTC1021 ) 



END { 
END INNfR RLOCK; 
♦SEGMENT DESCRIPTOR* 



05619200 T 0811 
05620000 T 0811 



^ 



END. 

PRTC431) s OUTPUT(W) INTRINSIC* SEGMENT NUMBER = 162, 
PRTC5) s BLOCK CONTROL INTRINSIC* SEGMENT NUMBER = 163, 
PRTC557) = JNPUTCW) INTRINSIC. SEGMENT NUMBER s 164, 
PRT(5l5) = SORT INTRINS?C» SEGMENT NUMBER = J65, 
PRTC446) - GO TO SOLVER INTRINSIC. SEGMENT NUMBER * 166, 
PRTU4) = ALGOL WRITE INTRINSIC. SEGMENT NUMBfR = 167, 
PRT(15) = ALGOL READ INTRINSIC. SEGMENT NUMBfR a 168, 
PRTC16) 9 ALGOL SELECT INTRINSIC. SFGMeNT NUMBfR = 169, 
PRTf5i4) s MERGE INTRINSIC SEGMENT NUMBER s 170, 
PRT(360) s FILE ATTRBUTs INTRINSIC, SEGMENT NUMBER m l7l, 

NUMBER oF ERRORS DETECTfD s o, compilation time =? 400 SECONDS, 

PRT SIZE * 530; TOTAL SfGMENT SIZE - 14260 WORDS; DISK SIZE ■ 720 SEGS? NO. PGM, SEGS 

ESTIMATED CORE STORAGE REQUIRED = 19044 WorDS. 

estimatfd auxiliary memory required = o words, 

NUMBER OF CARD-IMAGES PrOCFSSED = 8251. 



6 IS 
2 IS 



815 LONG. 

05621000 T 

92 LONG. 



NEXT SEG 

0089 
NEXT SEG 



2 

1 



1 
172 



« 172 



IS 
IS 



? LONG. NEXT SEG 
69 LONG. NEXT SEG 








c 



c 
c 
c 
c 
c 



o 



r 



'w 1 



c 
c 



o 



o 

o 
o 
o 



f •- 



c 
c 
c 

c 

c 



o 



^ 



u 



■u 



o 



000? *00151000* 



A 
O 0006 +00408000* 



O 0006 *00416000* 



0006 #00418000* 



A 
Vj 0006 +00706600* 



00706640 00706650 00706660 



O 0006 +00422220* 



00422230 



A 
O 0006 *00707000* 



00711000 00720000 



A 
O 0006 #00422000* 



o 



o 
o 



00650000 00725000 +00894000* 00896000 00897000 00898000 +00909000* 00910000 009i5l60 01129000 01248000 

C 01655000 02610000 *03l62007* 03162014 *03l62030* 03162060 03162120 *03l64050* 03164100 *032l9000* 03220000 O 

03222000 *03224oOO* 03226000 +03976000* 03977000 +03997000* 03998000 04000000 +04002000* 04004000 +04075000* 

♦04082000* 04082100 04099000 04101000 04102000 04105000 04111000 04113000 04H4050 04114520 04H5000 

O 04126100 +04136000* 04139000 04151000 *04l55000* 04157000 04158000 *04350000* 04354000 +04354000**04359000* O 

04359000 04487050 05063300 05063450 05063670 *05088000* 05089050 05090000 05091000 05127100 *0527l000* 

05272050 05273000 05274000 05529120 05535030 05603030 

o o 



KJ 



o 
o 
o 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 

c 



u 



v J 



a 



o 



o 
o 
c 

o 
o 



o 
o 
o 

— > 



0006 *00422235* 

00422240 00422250 



A 

0006 *01364010* 



01364030 *01364030* 01364030 



A 

0006 *01520000* 



01528000 01537000 01538000 *0l538000* 01539000 01540000 01543000 01545000 01551000 

A 

0006 *02317000* 

02319000 

A 

0006 *036?i000* 

03626000 

A 

0006 *05603030* 

05603040 

A 

0023 *00650000* 

♦00678000**00685000* 00694000 *00695000* 00696100 00700000 00702000 00702100 00705100 

A 

0023 *00651000* 

00672000 

A 

0034 *009t5160* 



00915220 009J528O 00915300 00915480 009i5560 00915580 00915600 00915620 009j5660 00915680 00915700 
00915720 00915760 00915780 009^800 009i5820 00915960 00916000 00916020 009i6040 00916080 00916160 
O 00916300 00916/100 

O A 

0030 *00725000* 

O 

o 



c 



c 

c 

c 
c 
c 

L 

c 



c 
c 
c 
c 
c 

c 



o 



u 



o 



u 



o 



o 



o 






u 



I ) 



S872S88S S8?2?S8S SS^SSSS S8r??SS8 8S????SS 0076,00 ° 0076300 ° 00mo0 ° 007M0J ° 0<,7 « 200 ° 076 < I2I "> 



A 
O 007^ *0i96«000* 



01966000 01993000 



A 
O 0075 *02042000* 



02042000 02046000 

A 

0085 *02610000* 

02613000 02614030 



A 
O 0080 *02362855* 



02362855 02362860 



A 
^ 0084 *02523100* 



02523300 



A 
O 0081 *025l4000* 



02518000 



L 

C 



a r 

0041 *0tl29000* 

O *01130000* 01130500 01131000 *01134000* 0113^000 01135000 01138000 01140000 01144000 01147000 01148000 C 

01149000 01153000 01154000 01156000 01158000 01159000 01162000 01163100 01164000 01165000 01169000 

C 

A 

0046 *0i248000* (- 

01249000 01250000 

A 

0062 +01655000* 

*0i673000* 01674000 01676000 O1689OOO 



c 

c 
c 
o 



o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 



{' ) 



W 



o 



o 



v_> 



w 



o 



L7 



o 



A 

013? *04487050* 

♦04513000* 

A 

0147 *05127100* 

05130110 05130120 #05130130* 05130140 



A 

0158 *05535030* 



*05535100* 05535120 05535130 05535150 *05535460* 05535480 05535500 05535540 05535560 05535580 



A 

0157 *05529120* 



♦05529430* 05529610 



ACCIDFNT 

0130 +04406010* 



#04415050* 04415?80 



ACCIDFNT 

0139 *04786000* 



*049?1000* 04941000 04949000 



ACCUM 

0002 *00186000* 



O ACCUMSTOP 

000? *00l86l00* 



02818020 *03378i00* 



U ACR 

000? *00j76000* 



L 



— > 



o 



C 



o 



o 
o 
c 

Q 

o 
o 
o 
o 



02195000 02200000 02511000 02558000 02559000 02560000 02560i00 02561000 0?56?000 0?57u00 02591100 
02620200 02731000 02812000 02819000 02820000 02822000 02825000 02831000 02839000 02850000 02878000 
O 02883000 03376Q0O 03378100 03437000 05025000 05038900 05529215 C 



o 
o 
o 

O *02500000* 02502000 025060?0 *028ll000* 0?8i4000 028i80?0 O 



O 

c 



w 



o 



o 



o 



c 



o 



/-' \ 



o 



ACR 

0081 *02448000* 

02/478000 



ACRV 
O 0085 *02608000* 



0^608000 02611000 



ACRV 

0085 *026l5000* 



02615000 02616000 



ACRV 
U 0081 *02448000* 



02449000 02452000 02474000 02477000 02482000 02496000 02497000 
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*** BURROUGHS B5700 DCMcP MA^K XVl.0,73 ANn I N T R I N S 1 C S MARK XVI.0,00 *** 
#N0 MESSAGES TODAY 
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?usfR- s 

7EXECUTE 
?DATA CA 



ITF 

PATCH/MERGE 
RD 

5JPATCH 
CDA IN 
PBDOOO3 
DKA OUT 



/MFRGE= 1 BOJ 1103 02/06/75 
CARDlPATCH/MERGE* 1 

out 011 ltneipatch/meRge* 1 
sfr masterf s ite i patch/merge= 1 

DKA IN SFR PATCH FORTRAN IPATcH/MERfiEs 1 

DKA OUT SER CARD001 FORTRAN IPATCH/MERGE* 

DKA L0k CARDOOl FORTRAN? PaTCh/MERGF= 1 

DKA IN SER CARDOOl FORTRAN JPaTcH/MfRGE* 1 

DKA OUT SfR CONTROL S I TE J P ATcH/MERfiE* 1 

DKA REL PATCH FORTRAN I PATCH/MERGEs 1 

CDA REI, CARD»PATCH/MERGE= 1 



1 



?END. 



DKA LOk CARDOOl FORTRAN ? PATCh/MERGE- 1 

cc usfr=sitej 

compile fORtran/disk with alg°l libRaRyj 

ALGOL STACKsiOOOJ 

ALGOL FILE TaPEsSyMBOL/fORtRaN DISK SERIAL? 

C0REs12000J 

FILE LINE=LINE PRlNT OR BACK UPJ 

ALGOL FILE CaRDsCARDOOi /FORTRAN SERIAL' 

ALGOL FILE C aRD=CARDOOi/FORTRAn SERIAL? 

END 

4IALG0J. /FORTRAN* 7 BOJ 1103 03/17/75 

PBDOOO^ REL OH LINE 555 S PATCH/MERGE* 1 

DKA RE|. CONTROL Si TE 1 PATCH/MERGE* 1 

DKA RE|. MASTERF Si TE J PATCH/MERGE* 1 

DKA IN SER CARD001 FORTRAN 8 ALGOL/FORTRAN* 2 

PATCH/MERGE= 1 EOJ 1103 

FOR PATCH/MERGEs U PST* 16 I0T= 21 PRO- H 

DKA IN SER SYMBOL FORTRAN j ALGOL/FORTRAN- 2 

P8D0003 OUT 021 PROGRAM L I ST iNg \ ALGOL/FORTR ANs 2 

DKA OUT SFR DSK1 S ITE \ ALGOL/FORTRAN* 2 

DKA OUT SFR DSK2 SI TE i ALGOL/FORTRAN* 2 

DKA OUT RnM FORTRAN D I SK ! aLGOL/FORtR AN= 2 

DKA LOK FORTRAN D I SK J ALGOL/FORTRANs 2 

DKA REL CARDOOl FORTRAN I ALGOL/fORTRAN= 2 

DKA REL SYMBOL FORTRAN I ALrOL/FORTR aNs 2 
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SFR DSRT1 SITEULfiOL/FORTRANa 
SfR DSRT2 SITEIALrOU/FORTRaNs 

dsrti sttf»algol/fortRan«» 2 

DSRT2 SiTfULgOL/fORtRaNb 2 

SFR DSRTI SITEIAUrOL/FORTRaNs 

SFR DSRT2 SJTEIALgOL/FORTRaNb 

DSRTt SlTFIAUGOU/FORTRANx 2 

DSRT2 SITE:ALG0L/F0RTRAN- 2 

DSK2 SITEJALG0L/F0RTRAN= 2 

D5K1 SlTElALGOL/FORTRAN- 2 
PBD0003 REL 021 PROGRAM LTSTyNR 1 7882 S ALGOL/FORTRAN* 
ALGOL/FORTRANa 2 EOJ 1115 
FOR ALrOL/FORTRaNs 2! PST* 
PKT#0002 REMOVED 



"v. 



c 



582 lOTo 295 PRO* 126 
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Label oooooooooline ooi77202?execute patch/merge patch /merge 

burroughs r-5700 patch/merge program mark xvi.0,00 thursday. 07/31/77, 11:03 am, 



********** INPUT ********************************************************************************** 



*9 CARD LISTI CONFLICTS MpRGE ZlPARRAY 

O s, 3? patches for fortran.xvi 

O card input is card 

PATCHES/FORTRAN is not on disk 
PATCH /FORTRAN WILL BE MERGED 

**C0MPILE FORTRAN/DISK WITH ALGOL LIBRARY 
^ $*ALGOL STACK s lOOO 

$*ALGOL FILF TAPE m SYMpOL/FORTRAN DISK SERIAL 

$*CORF = 12000 
O &* FILE LlNp - LINE PRINT OR BACK UP 

$* DATA CARD 

£• ***** THIS LISTING SHOWS PATCHES IMPLfMENTfD AT UCSC ***** 

U SRFSET list set tape 

*Set lista single PRT xref 

o 

O S#PATCH numbfR ioi for fORtRan contains 1 CARn P 101 



S#PATCH NUMBER 102 FOR FORTRAN CONTAINS 2 CARDS P 102 



S#PATCH NUMBER 103 FOR FORTRAN CONTAINS 7 CARDS. P 103 

IF T* FOUL AND T* NEQL THEN FLAGC54) 04245000 P 103 



c 
c 
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c 
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c 



VRB Is ASK Is LISTEL Is TRUE* 60 ROUND? 04735740 P 101 

O S| THtS PATCH CORRECTS AN FORMAT ERROR IF THE ONLY LIST ITEM P 101 C 

St REQUIRED WAS FOR A VARIABLE FORMAT PhRASE. P lOl 

SI****************************************************************************** p ioi 



C 



V. 



O IF NTAPTOG THEN BEGIN CLOSECTAPEmCLOSE TAPE BEFORE NEWTAPE 03366100 P 102 C 

LOCKCNFWTAPE»*>* EnDJ 03366200 P 102 

Si THIS PATCH WILL ALLOW THE NEW TAPE FILE TO HAVE THE SAME MFID AND P 102 

O SI FID AS THE TAPE FILE! P 102 <- 
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ELSE 04245100 P 103 

-" BFGlN 04245200 P 103 L, 

EP(9,STD); FOfXCH)) E0LC9)I E0CT)J 04245300 P 103 

EP(9,STD )'| FOCT)J E0U 9 >' 04245400 P 103 

■U T*HF TpfQuI THEN LNd ELSE L0RJJ CODE*0; 04245500 P 103 C 

END? 04245600 P 103 

*» BY K F K p 10 3 

'-' SI DATE 7/16/74 p l0 3 C 

SI TR. 21 13 P !03 

si this patch will allow the use of complex expressions in the p 103 

O Sj logical if statement and in logical statemfnts in general. P 103 C 

SI THE ,EQ. AND .NE, OPERATORS CAN NOW BE USED TO COMPARE TWO P 103 

SI LOGICAL ITEMS. P 103 

O $1 SYNTAX EXAMPLES? P 103 C 

SI COMPLEX Cl»C2 p 103 

SI LOGICAL LI p 103 

^ SI IECCI ,pQ, C2) GO TO 1000 P 103 U 

SI Ll = CI ,NE. C2 P 103 
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IF A. CLASS GFQ 13 THfN FLAGC34) fLSE 
$1 BY ODD 
SI DATE 8/29/74 



S| 

s 
s 
$ 



I DATE G/29/JH 

I THIS PATCH WILL PReVfNt THE FORTRAN cOMPiLfR FROM BEINq D5»FD 

I DUE TO AN INVALID iNnEX WHEN THF COMPILING PROGRAM 

I REFERS TO A VARIABLE IN AN INCONSISTENT MANNeR» THE COMPILER 

I WILL NOw FLAG THE CONDITION WITH AN ERROR MfSSAGE. 
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S# PATCH NfMBER 1 05 FOR FORTRAN CONTAINS 2 CARDS, P 105 



00854100 
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00856100 
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SI COULD OCCUR, 



S#PATCH NUMBER 106 FOR FORTRAN CONTAINS 2 CARdSI P i06 






S#PATCH NUMBER 104 FOR FORTRAN CONTAINS 1 CARD. P 104 C 
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O IF INF.SUBCLASS^DOUBTYPE AND CL*VaRID THEN FMI NUS*FMI NUS+1 i 00854100 P 105 O 

IF INF.SUBCLASS5D0UBTYPE AND CL=VARID THEN 

SI BY KfK 

O S| DATE 11/31/74 

$1 THIS PATCH CORRECTS aN fRROR THF OCCURS IF A COMPLEX OR 

S| DOUBLE PRFClSlON FUNCTION IS PASSED AS A PaRaMETfR 

U S| TO A FUNCTION OR SUBROUTINE. TmE PROGRAM COULD GET P 105 O 

SI DS-ED FOR INVALID INDEX OR STACK OVERFLOW AND SOMETIMES SYSTEM HANGS 



o 
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^ END* 00813000 P 106 O 

ie npaRms > o then 00816000 p 106 

st this patch eliminates some garbage on the symbol file p 106 

^ SI BY DnD P 106 O 

SI 3/4/75 p i0 6 
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s>************* ********************************************************* p j 06 



$#PATCH NUMBER 107 FOR FORTRAN CONTAINS 1 CARD, P 107 



S#PAT("H NUMbfR 109 FOR fORtRaN CONTAINS 7 CARDS. P 109 



<w 



C 



- 1 BUF * SCANlNCCBUFilD, RESULT, 0»1)' 02364420 P 107 ^ 

$1 THTS PATCH WILL CORRfCT A PROBLEM WITH »S INCLUDE" NOT WORKING, P 107 

... $1 BY ODD P 107 

<~> 5? .DATE 12/27/74 P 107 

S>******** *********************************************************** *********** p 107 



/-> 



v~< 



U $#PATcH NUMBER 108 pOR f ORTRAN CONTAINS 1 CARD P 108 C 

TF A > REALTYPE OR B > REALTYPE THEN 03977000 P 108 _ 

s_> SIBY KFK P 108 U 

SlDATp 2/8/75 P 108 

SISOFTWARE fLASm # P 108 

U 41 TmTS CMAN6F WILL ALLOW THE FORTRAN cOMPiLfR TO CORRECTLY SYNTAX P 108 C 

$ICALLS ON FUNCTION STATEMfNTS, WITHOUT TmS PATCH THE COMPILER P 108 

SJWOULD NOT GIVE A SYNTAX FRROR JF THE ACTUAL PARAMETER IS A DOUBLE P 108 

O $«PREC1SI0N VARIABLE AND ThE FORMAL PARAMETER IS A REAL VARIABLE, P 108 C 

SlTHUS THE STACK WqUlD BE SET Up WRONG AND THE OBJECT PROGRAM COULD P 1 08 

sibe ds-ed For Invalid address or stack overflow* and sometimes p tos 

o sisystem halts could happen, also if a real variable were passed p 108 ( - 

S|To A INTEGER FORMAL PARAMETER AN INVALID SY N TaX Error WoUlD BE GIVEN, P 108 

$| NOTE: THE F RMAL PARAMETERS, SOMETIMES CALLED DUMMY VARIABLES P 108 

U SlCAN BE GIVEN A TYpEt oTHER THAN THE DEFAULT TYPE* BY P 108 C 

SIREFERENCE TO THEM !N A TYPE DECLARATIVE STATEMENT OR AN P 108 

S » IMPLIC IT TYPE STATEMENT, P 108 

U SiEXAMPLEl P 108 O 

$1 REAL *8 X.F» B IN THIS EXAMPLE THE DOUBLE PRECISION P 108 

S| FtX) q X*X FUNCTION F HAS ONE DOUBLE PRECISION P 108 

O $1 A« SNGL(F(B>) PARAMETER B. P 108 C 

SI STOP P 108 

SI END P 108 

O SI************************************************************************ P 108 C 



c 



BOOLEAN VARF, SJNgLfTOgI 03791000 P 109 

IF LtNK < THEN BEGfN SiNGLETOG ♦ TRUEI L|NK * ABSCMNK) fNDI 03799500 P 109 

O IF NOT SINgLfTOq, A^n I NFA, SUBCLASS > LOgTyPf THfN 03834000 P 109 U 

BFGIN LfNrTH * 2 x LENGTHI BOUNDS * TRUE END! 03834500 P 109 

BOOLEAN DOUBLED, SINGLFTOG* 05066005 P 109 

^ SjNGLETOG * TRUE* 05067275 P 109 O 

FXt * IF SINGLFTOG THEN "FNEXT ELSE fNeXTI 05069000 P 109 

$»BY DDD MSA-CENTRAL P 109 

O SIDATE p/14/75 P 109 

SITHIS PATCH CORRECTS A PROBLEM IN THE IMPLEMENTATION P 109 



<J 



c 



u 



$i of The implicit construct, 

$j ***************** ********************* ******* ************************* 



P 
P 



109 
109 



c 



^ 



&#PATCH NUMBFR 110 FOR FORTRAN CONTAINS 2 CARDS. P 110 

IF N0T(USTNe:XT*42 OR UaSTNeXTsIOOO OR LaSTNEXT = 30 05529130 P HO 

OR LASTNEXTsl6 OR LASTNEXT = 11) 05529131 P UO 

*l ODD P 110 

St 3/2/75 P HO 

si this patch allows surROutiNfs to be placed bffor f implicit statements p no 

St THAT ARE DFCLaRfO tN THF MAIN PROGRAM, P 1 10 

i^*****^***^***#*******^**#*A:** *************************** ************** P 1 1 
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S#PATCH NUMBER 111 FOR FORTRAN CONTAINS 5 CARdS? ILLEGAL * iN RUN-TIME EDITING 
SI CORRECTS THE ERROR MFSSAGE PRINTED WHEN AN ASTERISK IS USED IMPROPERLY AS 

si part of a format phrase; 

$! BY ARO • MSA CENTRAL SOFTWARE F|.ASH 169 
183 ILLEGAL USE OF ASTERISK FqR RUNTIME EDITING 
"ILLEGAL "»"USE OF A"t"STERlSK "*»F0R RUN-"i«TjME EDI"*"TlNG ", 
BEGIN FLAGC183) I 
IF ZF OR DECIMAL NEQ THEN FLAG(163){ DEC I MAL J=4095 ; 
END ELSE BEGIN DECIMAL*=4095) FLAGC183)! GO FL END I 
$;*+■************ ****** ************************************************** 



111 



C 
C 

c 

00143043 C 
00596535 C 
04708515 C 
04735715 C 
04735750 C 
C 



S| THF FOLLOWlNr, 

Sf PR r V t OUSLY# AL 

St SUPERFLUOUS "F 

S| A CROSS REFFRF 

St SEGMENT PROCES 

St THE HANDLING 

St BY ARO - MSA C 

184 NO PROGRAM 

"NO PR0GR"»»AM U 

IF SPLlNI 

IF SPUN 

IF SpLlNK* 

BEGIN 
END) 

IF SPLIN 

BOOLEAN END 

BEGIN EN 

IF NOT E 

ENDTOGI* 

IF NOT ENDSEGTO 

THEN BEGIN X 



Patch 
l the 
no<s. 

NCF WA 
StNG I 
F MfSS 
EnTRAl 

unit f 

NIT "t 

K NEQ 
K NEQ 
THEN 



rORRF 

regul 

This 

S RF<3 

S DON 

TNG" " 
SOFT 

oR th 

"FOR 
THE 
n THE 
FLAG 



CTS THF 

AR e n D- 

COULD 

uested: 

E FOR S 
END" ST 
WARE F|, 
IS END 
THIS"," 
N BEGIm 
N BEGIN 
(184) E 



HANDLING OF 
OF-SeGMfNT PR 
CAUSE A "DFC 

NOW A MESSA 
UPERFLUOUS "E 
ATEMENTS. 
ASH 170 

statement 
end sta"» m te 
Flagcs); end 

ELAG(5)| END 

LSE 



MULTIPLE "END" 
OCFSSiNG WAS DO 
ERROR" AND AN A 
GE tS PRINTED A 

nd"s„ this pat 



ment "*" 

s; segmEntstart 
si segmEntstart 



statements, 

Ne ON 

borted compile if 
nd no end-of- 

Ch ALSO CORRECTS 



; End; 

\ ENDt 



K NEQ THEN BEGIN FLAG<5); eNdSj SEGMENTSTART) ENDt 

Tog; 

DS; ENDTOGt=TRUEt SCAN END! 

NDTOG THEN IF SPLlNK*0 THEN SPLINKjsi; 

false; 

g then if splink neq 

Ta« s BLaNKSI FLAGC5); ENDS ENDI 



0014304ft 
00596536 
05128000 
05151000 
05212005 
05212007 
05216000 
05532000 
05537200 
05553000 
05579000 
05579100 
05612100 
05612200 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



S#PATCH NUMBfR 112 FOR FORTRAN CONTAINS 14 CARDS. EXTRA OR MISSING "END" STMTS, C 112 



12 
12 
12 
12 

12 

12 

12 
12 

12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
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S#PaT(*H NUMBER 113 FOR FORTRAN CONTAINS 7 CARDS. FIX X**I 



s; 
Si 
s: 
si 

Sl 
St 



thf following Patch torrfcts thf code gfnerated for x to thf i p 
i is an tNtfrfR constant greater than 1023 whose btnaRy Represen 
tN 2 zeROfs, previously^ an exponent oveRfUow Occurred. 

BY AR0 AND sJTC MSA CFNTRAL SOFTWARE FLASh 1?1 

HERIOT-WATT U: PATCH 515 CLAIMS TO FIX BUGS IN ThIS PATCH. INVE 

INSTALL HWU 515, **************** 

BOOLEAN CnSTSEEnlASTj SFOR HANDLING COnSTAnjT 

REAL SAVEADr? SEXroNEnTS 

CNSTSEEnLASTjsFALSEJ 

saveadr$=sadrj CNSTSEENLASTjsTRUEJ 

CNSTSEENLAST THEN 

EXPViaLlNKj 

A?5?ll ADRjsSAVEADRl 

st***************************************************************** 



OWERt WHERE 
TATTON ENDS 



STIQATE AND 
* 

04025500 
04025600 
04072500 
04178500 
04345000 
04349000 
04350000 

***** 



C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



113 

113 
113 
113 
113 
113 

113 
113 
113 
113 
113 
113 
113 
113 
113 
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8#PATtH NUMBFR 114 FOR FORTRAN CONTAINS 5 CARnS. FIX SVOIDT C 

Sl THF FOLLOWING PaTCH CORRECTS A SVOjDT PROBLEM, PREVIOUSLY, THE LAST CARn C 

S» TMAGF |N THE "TAPE" FlLF COULD NOT BE VOIDFD. C 

Sl BY ARO m MSA CENTRAL SOFTWARE FLASh 1?2 C 

SI SEF ALSO PATCH 115 C 

IF VOmTTOr, THFN IF SEQCHK(CRDr9j, VOIDTSEO) < 4 02373045 C 

THEN VOIDTTOGI^FALSE 02373100 C 

FLSE BEGIN VOTDTTOG'sFALSE? GO TO STRTJ END* 02373200 C 

VOIDTTOGIpFAi.Se ELSE BEGIN NEXTC ARD » =SEQCHKCTB[ 9] , CBt 9] ) i 02416200 C 

GO To STRT? EnDJ 02416300 C 

SI********************************************************************** c 



SCRATCH NUMBER 115 FOR FORTRAN CONTAINS 3 CARDS, FIX SVOIDT C 

SI THE FOLLOWING PATCH CORRECTS A PROBLEM WHICH CAUSED THE WRONG RECORDS TO BE C 

Ss VOIDED WHEN THE VOIDING SEQUENCE LIMIT ON THE SVoID OR SVOIDT CARD IMAGE C 

SI WAS LESS THAN 8 DIGITS LONG, NOW THE INTENDED RECORDS ARE VOIDED IN ALL C 

SI CASES, C 

S| BY ARO - MSA CENTRAL SOFTWARE FLASH 173 C 

SI SEF ALSO PATCH 114 C 



DS!*8LIT W 0«J 

BcsiisSi+u ni»=Di*i; taLLyjsTally+1; 
if sc lss »o w then jump out)? 
$1********************************************************************** 



** patch 400 for fortran.xvi.o contains 9 cARnSl FIX SiNcLUnE 



02252600 C 
02252800 C 
02252850 C 



114 

14 
14 
14 

14 

t« 
14 

14 

14 

14 



c 



115 

115 
M.5 

115 
115 
115 
115 
115 
115 
115 
115 



400 



c 
c 

c 
c 



c 

c 
c 
c 
c 

c 



O S| ThtS PATCH CORRECTS THE * INCLUDE HANDLING! THE S INCLUDE SCANNER C 400 <- 

Si RETURNED A RESULT OF REQUESTED TYPE INSTEAD OF FOUND TYPE fl.E, YOU C 400 

S» WERE SCANNING FOR A nUmBER TrUS YOU GOT A nU M BER). IF A STARTING SEQ C 400 

■^ SI WAS GIVEN THEN THE CqmPIlER W0U1.D INSIST ON A SPECIAL CHARACTER C 400 <~ 

Sl FOLLOWED BY A NUmBEr. THIS WoU|,D CAUSE PR B L ,EMS IF ONLY THE STARTING C 400 

SI SEQUENCE WAS SPECIFIED, THE SPECIAL CHARACTER FrUnD WoULD BE THE SCAN STOP C 400 

O $1 IN CC 73 AND THE NUMBER WOULD BE THE LAST 7 DIGITS OF THE SEQUENCE C 400 C 

SI NUMBER* IF THE SEQUFNCE NUMBER WERE BLANK. THE COMPILER WOULD CONVERT C 400 

SI "3 " TO DECIMAL AS THE ENDING SEQUENCE NUMBERi IN EITHER CASE* C 400 

O SI THE RESULTS OF SPECIFYING ONLY THE STARTING SEQUENCE NUMBER WERE C 400 l - 

SI UNPREDICTABLE, C 400 

SI BY D.G, WILLMS* 17FEB1976 BROCK U, PATCH 400 C 400 

IF SC = ALPHA THEN ELSE BEGIN DSlsLlT "1"? Dp-ID? DS I = 2LI T"0"J 02333240 C 400 C 

IF SC LSS "0" THEN OSisLlT "2" ELSE 0S|=LIT "3"* 02333270 C 400 

N CDH = ID) DSl^ LIT "0 "I DI»=Dl-7j 02333280 C 400 

U M ( 8 ( IF SC L.SS "0» THEN JUMP OUT 2 TO LQI 02333360 C 400 <~ 

IF SC ir,TR "9" THEN JUMP OUT 2 TO LQI 02333370 C 400 

SflsSl+i; TALLYI»TALLY+t))l 02333380 C 400 

^ IF ID = M ] " THEN NeWSeQ CINSERT5eQ»99999999) 02364605 C 400 C 

FLSF BFfilM 02364610 C 400 

FND 02364670 C 400 r 

O $ I *************************************************** C 400 ^ 



u 



s# patch soi for fortRan.xv.i contains 14 caRds: fix up & change s*caRds C 501 



*w 



S| DEFAULT S-CARD IS? SCARD LIST SINGLE -CHECK -PAGE C 501 

SI SINGLE AND CHECK ALWAYS SET ON A S.CARD AND CAN ONLY BE RESET C 501 

O SI BY USING THE EXTENDED S-CARD "RESET" . C 501 C 

Sl ALLOW NEW TAPE OPTION TO BE "NEW"* "NEWTAPE". OR "NEW TAPE" C 501 

si by dgw&grk* Brock u, patch 501 c 501 

O SI MODIFIED BY DR» UCSC, APRIL 7* 1 977 SO THAT THE DEFAULT ACTION IS NOT C 501 C 

SI TO CHECK SEQUENCE NUMBERS C 501 

SI SEE ALSO PATCHES 511. 5l7 C 501 

O $1 SEE ALSO HERIOT-WATT U, PATCH 702 C 501 ( - 

TSSMESTOG * VALJ TSSEDlTOc, * VAL; CHFCKTOG * VALJ 02269300 C 501 

SfNGLET0G*N0T VALJ HOLTOg*-VAL? 02269600 C 501 

O prtog*val? dolist*val* LIBTAPE*VAL* SEGPTOG*VALJ 02270200 C 501 C 

BEGIN LlBTAPE*VAL» NEWTPTOG*VAL* NTAPTOfi*TRUEI 02275100 C 501 

IF ID = "NEW " THEN 02275120 C 501 

O BEGIN 02275140 C 501 ^ 

GFTtDI 02275160 c 501 

IF ID * "TAPE " THFN 02275180 C 501 ~ 

U GO TO LPl 02275200 C 501 ( - 

FND* 02275220 C 501 

END ELSE 02275240 C 501 

o if id s "newpar* then segptog * val else 02286100 c 501 ^~- 

LIST0G*TRUEJ SiNGLETOG^TRUEJ CHECkTOG «• FALSE' XDEFAULT 03384000 c 501 

SEGpToG * FALSE! XlNHlBIT PAGE SkIP AFTER SUBROUTINES 03571300 C 501 

o 
o 

o 



$# PATCH 502 FOR FqrTRAn.XV.3 CONTAINS 2 CARDS. CHANGE TAPE LOCK CONDITIONS C 502 

C 

C 



o 

o 
o 
o 



sj lock tape file before newtape file instead of closing only if 

$« A NEW FILE IS CREATEDt 

Si G WILLMS* 19DEC74 BROCK U, PATCH 502 

LOCKCTAPE)! SRW/L TAPE FILE OR LOCK DISK 
IF NTAPTOG THEM LOCKC NEWTAPE »*) I SRW/L TAPr 



OR CRUNCH DISK 



C 502 

C 502 

C 502 

03366100 C 502 

03366200 C 502 



v> 
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S# PATCH 503 FOR FORTRAN. X T I CONTAINS 13 CARDS. DEFAULT FILE NaMeS ETC 

S? SET FILE 5 TO READER ANr FH-E 6 TO BE PRINTER BY DEFAULT 
$1 BY K F N WfST BROCK U, PATCH 503 

Label qoQdtskdffaultj 

QQQDlSKDEFAULTi 

IF mNM = «RFADFR " OR mNMsTlLFS »' THEN TDNM#-»CARo " ELSE 
IF IDNM=?»FTLE6 " THEN BEGIN I DNM*"PR I nTeR»J FlLTYP*l 81 END FLSE 
BEGIN 
EMlTLf20)> EMlTLf600)l FlLTYp*i2l %Z0 x *00 REC DISK 

J*0&2tA2U?l6J8JOt^OI36U23*300ll8l36ll2]l 
FID-IDNM; MFID«-"F0RTFMP"J T1*GI TSZC IDNM) J 

GO TO QQQDISKDEFAULT? 
END} 
ELSE EMlTDESCLlTCFILFCHECKC'SS "»2+l7xRFAL 
ELSE IF N s 2 THEN 

EMITDESCLITCFILFCHECKC W ,6 "»2+l7xREAL 
$ | ********************** ************************************************ 



02997010 
03164045 
03184010 
031840?0 
03184030 
03184040 
03184050 
03184054 
03184060 
03184070 
04841000 
04844000 
04845000 



*# PATCH 510 FOR FORTRANiXTII CONTAINS 4 CARDS. NO F RR MSG IF NO ERRS 

*» TF NO SfQUeNcf E RR 0RS ThfN LiNe IS BLANKED OUT 

81 FIXES "NUMBER OF SEQUENCE ERRORS" LINE TN cOmPI.LfR WRAP UP. 

SI BROCK U: PATCH 510 

DS«-32 L tT " '•? 

, n S*32 LiT " »} 

WRtTf-(RTTEtFOCl»FIELnfFRRORCT)»FRRORCT,fF SEQERRcT = THEN 99 ELSE 
TF ERR0RCT>0 THEN IF FLAGLASTf eRRORBUFF, LAsTpRR ) THEN WR t TEf R I T£M 5. 
St********************************************************************** 



** PATCH 511 FOR F0RTRA w . XV 1 , CONTAINS 6 CARDS! LIST S CARDS 



05603081 
05603082 
05617000 
05619050 



St 

St 
SI 
Sf 
St 

St 
St 

St 

St 



THIS PATCH CAUSES THE C MPll,ER To LIST s CARDS, THE 
IF LIST or LISTDoLLAr IS SET. THE $ CARDS Will ALSO 
S CARD IS SETTING LIST FALSE AND THE LIST OPTION WaS 
S INCLUDE CARDS WILL BE LISTED IF LIST OR LISTDOLLAR 



$ CARDS WILL BE LISTED 
BE LISTED IF THE 
PREVIOUSLY SET. 
IS SPECIFIED, 



THE $ INCLUDE CARD WILL BE LISTED (IF LIST OR LISTDOLLAR IS SET) IF COPY 

IS SPECIFIED, PREVIOUSLY THE S INCLUDE CARD WAS NOT LISTED IF COPY 

WAS SPECIFIED. 

D.G, WILLMS, 190EC74' REWRITTEN BY D,G, WILLMS, 20AUG75. 

BROCK U." PATCH 511 



C 

C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 



503 

503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 
503 



C 510 



510 
510 
510 

510 
510 
510 
510 
510 



511 

511 
511 
511 
511 
511 
511 
511 
511 
511 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

G 



S* MODIFIED BY DR# UCSC, MAY 10, 1977 TO ELIMINATE ALL REFERENCES TO "IGNORE" C 511 

J SI SEE ALSO PATCHES 50l, 5l7 C 511 ( - 

BOOLEAN VAL, SaVELJSTOgI 02261500 C 511 

SAVELlSTOr, != LISTOg* 02262775 C 511 

IF DOLfST OR LtSTOg OR SAVELiSTOg THfN 02289450 C 511 '"- 

PRjNTCARDJ 3SWAS CONdtTjONED BY "DOLTST" GRK 02289500 C 511 

ENd» 02364885 C 511 

G ip LlSTOG OR DOLlST THEN PRiNTCARd? 02364890 C 511 

$1****************************************************** **************** C 511 
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S# PATCM 517 FOR FORTRAN. XV. 1 CONTAINS 5 CARDS. S* C aRd FIX C 517 



£# PATCH 992 FOR FORTRAN CONTAINS 1 CARD, COMMfNTS C 992 



C 



S# PATCH 51? FOR FORTRAN CONTAINS 1 CARD, BETTER CORE ESTIMATE C 512 C 

$1 PRODUCE MORE ACCURATF CORE ESTIMATES IF ARRAYS ArE USED C 512 

St BY GRK BROCK U, PATCH 512 C 512 G 

LNK l- 256; ^INCLUDE ENTIRE ARRAY SIZE IN ESTIMATE 01719000 C 512 

St********************************************************************** C 512 r , 

c 

s# Patch sis for fortran contains i card, siNgLf space compiler summary c sis 

S? BY G.R, KENNEDY 08fEB73 rROcK U, PATCH 515 C 515 C 

OEFINf PTR=LINf#,RiTE=LtNf#»CR*CARd#»TP=TAPE#I 00391000 C 515 

$ I ********************************************************************** c 5J5 



r~- 



O $1 THfS PATCH WILL ALLOw ThE COMPILER TO CORRfCTLY HANDLE S CARDS C 517 C 

St SUCH AS SCARD ReSET CHECK! PRjOR TO Th?S CHANGE, THE COMPILER C 5l7 

S! WOULD NOT SET ANY OPTIONS TO THEIR DEFAULT STATUS IF THE FIRST C 5)7 

O S! OPTION WAS "CARD" OR "TAPE" AND THE SECOND OPTION WAS "SET" OR "RESET" C 517 G 

s? this patch also prevfnts a dollar card with an illegal construct from c 517 

$> BEING PRINTED MORE THAN ONCE. C 517 

U st BY DGW BROCK U, PATCH 517 C 517 G 

SI MODIFIED BY Dr» UCSC APRIL 6» 1977* TO REMOVE A BROCK U, FEATURE THAT C 517 

SI PERMITTED TRACE, PRT, AND DEBUGn ONLY To SYSTEMS PROGRAMMERS C 517 _ 

O SJ SEE ALSO PATCHES 501, 511 C 517 C 

TAPET0GiC47ll] * LASTMODE - 2J 02265700 C 517 

SVOIDT 02267200 02266000 C 517 

O BEGIN TAPET0G f [47:l]*N0T VALJ LASTMoDE*2-REAL( VAL) END ELSE 02272510 C 517 L, 

IF UNPRINTED THEN BEGIN PRINTCARD; UNPR I NTED«-FALSE END; 02287000 C 517 

IF UNPRINTED THEN PRINTCARD; 02289500 C 517 



^ 



O $i THIS PATCH MfRELY ADnS COMMENTS TO EXISTING CODE. C 992 G 

$1 BY DR UCSC APRIL 18, 1977 C 992 



C 



o 

o 



o- 



o 



U 



TF iNrA. CLASS b FILFTH THFN SgSEF COMMENTS ON LlNE 02118000 03144000 C 992 



$# PATCH 993 FOR FORTRAN CONTAINS ?\ CARDS. COMMENTS C 993 



S# PATCH 99a FOR FORTRAN CONTAINS 14 CARDS. LABELS FOR CASES C 994 



c 
c 



L 



U SJ THIS PATCH MERELY ADDS COMMENTS To EXISTING CODE. C 993 C 

$1 BY Dr UCSC APRIL 18' 1977 C 993 

GO CASELC-IDINF0]J % SEE INITIALIZATION OF "TIPE"t LINE 03433100 02862800 C 993 

O mi XDIGITS 02863000 C 993 ^ 

L2: % > 02898100 C 993 

L3: % > 02899100 C 993 

'-' L4J % s OR + 02900100 C 993 ^ 

L5l % , 02910100 C 993 

L6: % % OR C 02929100 C 993 

^ L7l % < 02930100 C 993 

L8l 2 LETTER 02938100 C 993 

L9l % $ 02942100 C 993 n 

U L10: % * 02943100 C 993 <~ ; 

S« Lll IS ALTERED IN PATCH 990 C 993 

L12J % - 02946100 C 993 

l ^' L13; * ) OR [ 02947100 C 993 ^ 

L14: % | 02948100 C 993 

L15| % < 02949100 C 993 

O L16$ * / 02951100 c 99 3 C 

L17» % , 02960100 C 993 

LIS: % * 02962100 C 993 

C L19J % a OR «• OR # 02963100 C 993 C 

L20! X ] 02964100 C 993 

L2P X M OR 5 OR 9 02965100 C 993 

{_} $1******************************************^ C 993 C 



c 



^ 



SI THIS PATCH INTRODUCES LaBFLS ON THE VARIOUS CASES OF A CASE STATEMENT, C 994 

$1 THFSF LABELS MERFLY wELP IDENTIFY THE CASES TO A HUMAN READER OF THE LISTING, C 994 

O Si THOSE CASES WHICH NEfD LABELS FOR PROGRAMMING PURPOSES ALREADY HAVE BEEN C 994 C 

$» LABELLED; C 994 

S? BY DR UCSC APRIL 18, 1977 C 994 

O LABEL LOOP, CASESTMTJ O28O3OOO C 994 ^ 

LABEL CaSeO,CASei»CASE2,CASE3»CASE4, CASES, CASe6,CASf7} 02803100 C 994 

LABEL CASE8,CASF9,CASElO»CASElt.CASE12*CASFl 3,CaSE14^ 02803200 C 994 

U CASeOI 02807999 C 994 C 

CASE4I 02827999 C 994 

CASE6I 02830999 C 994 

O CASE7J 02833999 C 994 C 

CASE85 02836999 C 994 

CASE9: 02837999 C 994 

O CASEiOJ 02838999 C 994 C 

CASEl} l 02839999 C 994 

CASElpJ 02840999 C 994 

O CASE13! 02848999 C 994 ( - 

CASE14* 02849999 C 994 



c 

c 



o 
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$# PATCH 995 FOR FORTRAN CONTAINS j CARDi ELIMINATE DUPLICATE FORWARD REFERENCES C 995 



SI BY DR UCSC APRIL 18, 1977 
St LINE 02057000 = LINE 00420000 
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S# PATCH 996 FOR FORTRAN CONTAINS 41 CARDS, COMMENTS 
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** patch 997 for fortran contains 5 cards, warning c 

3! BEWARF ALL VE WHO SeFk HFRElNJ OOOOhOO C 

% THIS COMPILER IS A MESSi THE CONCEPTS OF CHARACTER CONVERSION FROM OOOOM 05 C 

2 HOLLERITH fs EBCDIC), SCANNING* AnD PARSING ARE NOT CLEARLY SEPARATED OOOOlljO C 

% in the code, for fxa m ple» procedure »scan° tries To do all 3 at once. 00001115 c 

% DAN ROSS UCSC ApRlL 12' 1977 00001120 C 
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%t PATCH 998 FOR FqRTRAn CONTAINS 1 CARD. UNLABELLED PAPER TAPE C 

$1 THIS PATCH MAKES "UN I TePAPER" VALID ON A FILE CARD, IT WILL GENERATE A FILE C 

$J PARAMETER BLOCK WITH UNITES, WHICH MEANS UnLABELLED PAPER TAPE, INPUT AND C 

$1 OUTPUT ARE DISTINGUISHED BY THE FILE NAME* WHICH MUST BE EITHER C 

S* "PRA/PRA" FOR INPUT OR . "PP A/PPA" FOR OUTPUT, CAUTlONj USFRS MUST NOT MAKE C 

SI MISTAKES ON FILE CARnS, THE CODE FOR PaRStNG FILE CARDS IS UNSTABLE, AND IT C 

SI WOULD BE A MAJOR BECoOlNG EFFORT TO MAKf IT STABLE. C 

SI BY DR. UCSC APRIL 7, 1977 C 

S» SEE ALSO HERjOT-WATT Ul PATCH 7?0 C 

IF TOG * XTA = "PAPER " THEN 8 ELSE 02214100 C 
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********** conflicts ********************************************************************************** 



IF NTAPTOfi THFN LOCK C NeWTaPE* *) J 2RW/L TAPf OR CRUNCH DISK 03366200 C 502 CONFLICTED WITH* 
LOCKCNFWTAPEf*)* ENDJ 03366200 C 102 DISCARDED 
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O NUMBER OF ERRORS DETECTfD = 0, 

processor time s 16 sfconds, 
i'o time * is seconds! 
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IF UNPRINTEn THEN PRINTCARDJ 02289500 C 517 CONFLICTED WITHJ 

^ PRINTCARD; *WAS CONDITIONED BY "DOLIST" GRK 02289500 C 511 DISCARDED G 

O LOcK(TAPE)! 2RW/L TaPE FILE OR LOCK DISK 03366100 C 502 CONFLICTED WITHJ C 

IF NTaPtOg THEN BEGIN CLOSFC TAPE ) i XCLOSE TAPE BFFORf NEWTAPE 03366100 C 102 DISCaRDFD 
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